xref: /openbsd/gnu/usr.bin/perl/ext/XS-APItest/t/gv_init.t (revision 898184e3) 
1#!perl
2
3use strict;
4use warnings;
5use Test::More tests => 12;
6
7use XS::APItest;
8
9is XS::APItest::gv_init_type("sanity_check", 0, 0, 0), "*main::sanity_check";
10ok $::{sanity_check};
11
12for my $type (0..3) {
13    is XS::APItest::gv_init_type("test$type", 0, 0, $type), "*main::test$type";
14    ok $::{"test$type"};
15}
16
17my $latin_1 = "è";
18my $utf8    = "\x{30cb}";
19
20is XS::APItest::gv_init_type($latin_1, 0, 0, 1), "*main::$latin_1";
21is XS::APItest::gv_init_type($utf8, 0, 0, 1), "*main::$utf8";
22