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