Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/vmsish.t

Lines Matching refs:vmsish
20     # make sure that all those 'use vmsish' calls didn't do anything.
21     is( $Orig_Bits, $^H,    'use vmsish a no-op' );
27 #========== vmsish status ==========
31   use vmsish qw(status);
32   is(($? & 1),1, "importing vmsish [vmsish status]");
34     no vmsish qw(status); # check unimport function
35     is($?,0, "unimport vmsish [POSIX STATUS]");
38   is(($? & 1),1,"lex scope of vmsish [vmsish status]");
40 is($?,0,"outer lex scope of vmsish [POSIX status]");
43   use vmsish qw(exit);  # check import function
44   is($?,0,"importing vmsish exit [POSIX status]");
47 #========== vmsish exit, messages ==========
49   use vmsish qw(status);
54   is($?&1,0,"vmsish status check, POSIX ERR exit");
56   $msg = do_a_perl('-e "use vmsish qw(exit); exit 1"');
58   ok(length($msg)==0,"vmsish OK exit, DCL error message check");
59   is($?&1,1, "vmsish status check, vmsish OK exit");
61   $msg = do_a_perl('-e "use vmsish qw(exit); exit 44"');
63   like($msg, 'ABORT', "vmsish ERR exit, DCL error message check");
64   is($?&1,0,"vmsish ERR exit, vmsish status check");
66   $msg = do_a_perl('-e "use vmsish qw(hushed); exit 1"');
68   ok(($msg !~ /ABORT/),"POSIX ERR exit, vmsish hushed, DCL error message check");
70   $msg = do_a_perl('-e "use vmsish qw(exit hushed); exit 44"');
72   ok(($msg !~ /ABORT/),"vmsish ERR exit, vmsish hushed, DCL error message check");
74   $msg = do_a_perl('-e "use vmsish qw(exit hushed); no vmsish qw(hushed); exit 44"');
76   like($msg,'ABORT',"vmsish ERR exit, no vmsish hushed, DCL error message check");
78   $msg = do_a_perl('-e "use vmsish qw(hushed); die(qw(blah));"');
80   ok(($msg !~ /ABORT/),"die, vmsish hushed, DCL error message check");
82   $msg = do_a_perl('-e "use vmsish qw(hushed); use Carp; croak(qw(blah));"');
84   ok(($msg !~ /ABORT/),"croak, vmsish hushed, DCL error message check");
86   $msg = do_a_perl('-e "use vmsish qw(exit); vmsish::hushed(1); exit 44;"');
88   ok(($msg !~ /ABORT/),"vmsish ERR exit, vmsish hushed at runtime, DCL error message check");
93   print TEST "use vmsish qw(hushed);\n";
98   ok(($msg !~ /ABORT/),"compile ERR exit, vmsish hushed, DCL error message check");
103 #========== vmsish time ==========
127      use_ok('vmsish qw(time)');
130      use vmsish qw(time);