This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fee41f6cbc58ab8101eb5f357a334ee3e6c1503b
[perl5.git] / ext / XS-APItest / t / gv_init.t
1 #!perl
2
3 use strict;
4 use warnings;
5 use Test::More tests => 10;
6
7 use XS::APItest;
8
9 is my $glob = XS::APItest::gv_init_type("sanity_check", 0, 0, 0), "*main::sanity_check";
10 ok $::{sanity_check};
11
12 for my $type (0..3) {
13     is my $glob = XS::APItest::gv_init_type("test$type", 0, 0, $type), "*main::test$type";
14     ok $::{"test$type"};
15 }