6 use Test::More tests => 9; #23;
12 ok !XS::APItest::gv_fetchmethod_flags_type(\%::, "nothing", 1, 0);
14 for my $type ( 1..3 ) {
15 is XS::APItest::gv_fetchmethod_flags_type(\%::, "method", $type, 0), "*main::method", "Sanity check";
18 ok !XS::APItest::gv_fetchmethod_flags_type(\%::, "method\0not quite!", 1, 0), "gv_fetchmethod_flags_sv() is nul-clean";
19 ok !XS::APItest::gv_fetchmethod_flags_type(\%::, "method\0not quite!", 3, 0), "gv_fetchmethod_flags_pvn() is nul-clean";
21 ok XS::APItest::gv_fetchmethod_flags_type(\%::, "method\0not quite!", 0, 0), "gv_fetchmethod_flags() is not nul-clean";
22 is XS::APItest::gv_fetchmethod_flags_type(\%::, "method\0not quite!", 2, 0), "*main::method", "gv_fetchmethod_flags_pv() is not nul-clean";
27 use open qw( :utf8 :std );
34 for my $type ( 1..3 ) {
35 ::is XS::APItest::gv_fetchmethod_flags_type(\%main::, "method", $type, 0), "*main::method";
36 ::is XS::APItest::gv_fetchmethod_flags_type(\%main::, "method", $type, 0), "*main::method";
40 ::ok !XS::APItest::gv_fetchmethod_flags_type(
41 \%{"\357\275\215\357\275\201\357\275\211\357\275\216::"},
43 ::ok !XS::APItest::gv_fetchmethod_flags_type(
44 \%{"\357\275\215\357\275\201\357\275\211\357\275\216::"},
47 ::ok !XS::APItest::gv_fetchmethod_flags_type(\%main::,
48 "\357\275\215\357\275\205\357\275\224\357\275\210\357\275\217\357\275\204",