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

#!perl
use strict;
use Test::More 'tests' => 2;

ok(!eval q{use XS::APItest 'pmflag'; 1}, "Perl_pmflag\(\) removed");
like($@, qr{\Wpmflag\W\s+is\s+not\s+exported\b}, "pmflag not exported");
Commit	Line	Data
879d0c72 NC	1	#!perl
879d0c72 NC	2	use strict;
01146bad	3	use Test::More 'tests' => 2;
879d0c72	4
01146bad RB	5	ok(!eval q{use XS::APItest 'pmflag'; 1}, "Perl_pmflag\(\) removed");
01146bad RB	6	like($@, qr{\Wpmflag\W\s+is\s+not\s+exported\b}, "pmflag not exported");
879d0c72	7