1#!./perl
2
3BEGIN {
4    require Config; import Config;
5    if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
6        print "1..0\n";
7        exit 0;
8    }
9}
10
11use Test::More tests => 2;
12
13eval <<'EOP';
14	no ops 'fileno';
15	$a = fileno STDIN;
16EOP
17
18like($@, qr/trapped/, 'equiv to "perl -M-ops=fileno"');
19
20eval <<'EOP';
21	use ops ':default';
22	eval 1;
23EOP
24
25like($@, qr/trapped/,  'equiv to "perl -Mops=:default"');
26