1*898184e3Ssthen#!perl 2*898184e3Ssthen 3*898184e3Ssthenuse strict; 4*898184e3Ssthenuse warnings; 5*898184e3Ssthenuse Test::More tests => 12; 6*898184e3Ssthen 7*898184e3Ssthenuse XS::APItest; 8*898184e3Ssthen 9*898184e3Ssthenis XS::APItest::gv_init_type("sanity_check", 0, 0, 0), "*main::sanity_check"; 10*898184e3Ssthenok $::{sanity_check}; 11*898184e3Ssthen 12*898184e3Ssthenfor my $type (0..3) { 13*898184e3Ssthen is XS::APItest::gv_init_type("test$type", 0, 0, $type), "*main::test$type"; 14*898184e3Ssthen ok $::{"test$type"}; 15*898184e3Ssthen} 16*898184e3Ssthen 17*898184e3Ssthenmy $latin_1 = "è"; 18*898184e3Ssthenmy $utf8 = "\x{30cb}"; 19*898184e3Ssthen 20*898184e3Ssthenis XS::APItest::gv_init_type($latin_1, 0, 0, 1), "*main::$latin_1"; 21*898184e3Ssthenis XS::APItest::gv_init_type($utf8, 0, 0, 1), "*main::$utf8"; 22