[perl5.git] / ext / XS-APItest / t / gv_init.t

#!perl

use strict;
use warnings;
use Test::More tests => 12;

use XS::APItest;

is XS::APItest::gv_init_type("sanity_check", 0, 0, 0), "*main::sanity_check";
ok $::{sanity_check};

for my $type (0..3) {
    is XS::APItest::gv_init_type("test$type", 0, 0, $type), "*main::test$type";
    ok $::{"test$type"};
}

my $latin_1 = "è";
my $utf8    = "\x{30cb}";

is XS::APItest::gv_init_type($latin_1, 0, 0, 1), "*main::$latin_1";
is XS::APItest::gv_init_type($utf8, 0, 0, 1), "*main::$utf8";
Commit	Line	Data
e6066781 BF	1	#!perl
	2
	3	use strict;
	4	use warnings;
04f3bf56	5	use Test::More tests => 12;
e6066781 BF	6
	7	use XS::APItest;
	8
04f3bf56	9	is XS::APItest::gv_init_type("sanity_check", 0, 0, 0), "*main::sanity_check";
e6066781 BF	10	ok $::{sanity_check};
	11
	12	for my $type (0..3) {
04f3bf56	13	is XS::APItest::gv_init_type("test$type", 0, 0, $type), "*main::test$type";
e6066781 BF	14	ok $::{"test$type"};
e6066781 BF	15	}
04f3bf56 BF	16
	17	my $latin_1 = "è";
	18	my $utf8 = "\x{30cb}";
	19
	20	is XS::APItest::gv_init_type($latin_1, 0, 0, 1), "*main::$latin_1";
	21	is XS::APItest::gv_init_type($utf8, 0, 0, 1), "*main::$utf8";