perl/lib/vmsish.t

53   $msg = do_a_perl('-e "exit 1"');
54     $msg =~ s/\n/\\n/g; # keep output on one line
55   like($msg, qr/ABORT/, "POSIX ERR exit, DCL error message check");
58   $msg = do_a_perl('-e "use vmsish qw(exit); exit 1"');
59     $msg =~ s/\n/\\n/g; # keep output on one line
60   ok(length($msg)==0,"vmsish OK exit, DCL error message check");
63   $msg = do_a_perl('-e "\&CORE::exit;use vmsish qw(exit);&CORE::exit(1)"');
64     $msg =~ s/\n/\\n/g; # keep output on one line
65   ok(length($msg)==0,"vmsish OK exit (via &CORE::), DCL err msg check");
68   $msg = do_a_perl('-e "use vmsish qw(exit); exit 44"');
69     $msg =~ s/\n/\\n/g; # keep output on one line
70   like($msg, qr/ABORT/, "vmsish ERR exit, DCL error message check");
73   $msg = do_a_perl('-e "use vmsish qw(hushed); exit 1"');
74   $msg =~ s/\n/\\n/g; # keep output on one line
75   ok(($msg !~ /ABORT/),"POSIX ERR exit, vmsish hushed, DCL error message check");
77   $msg = do_a_perl('-e "\&CORE::exit; use vmsish qw(hushed); '
79   $msg =~ s/\n/\\n/g; # keep output on one line
80   ok(($msg !~ /ABORT/),
83   $msg = do_a_perl('-e "use vmsish qw(exit hushed); exit 44"');
84     $msg =~ s/\n/\\n/g; # keep output on one line
85   ok(($msg !~ /ABORT/),"vmsish ERR exit, vmsish hushed, DCL error message check");
87   $msg = do_a_perl('-e "use vmsish qw(exit hushed); no vmsish qw(hushed); exit 44"');
88   $msg =~ s/\n/\\n/g; # keep output on one line
89   like($msg, qr/ABORT/,"vmsish ERR exit, no vmsish hushed, DCL error message check");
91   $msg = do_a_perl('-e "use vmsish qw(hushed); die(qw(blah));"');
92   $msg =~ s/\n/\\n/g; # keep output on one line
93   ok(($msg !~ /ABORT/),"die, vmsish hushed, DCL error message check");
95   $msg = do_a_perl('-e "\&CORE::die; use vmsish qw(hushed); '
97   $msg =~ s/\n/\\n/g; # keep output on one line
98   ok(($msg !~ /ABORT/),"&CORE::die, vmsish hushed, DCL error msg check");
100   $msg = do_a_perl('-e "use vmsish qw(hushed); use Carp; croak(qw(blah));"');
101   $msg =~ s/\n/\\n/g; # keep output on one line
102   ok(($msg !~ /ABORT/),"croak, vmsish hushed, DCL error message check");
104   $msg = do_a_perl('-e "use vmsish qw(exit); vmsish::hushed(1); exit 44;"');
105   $msg =~ s/\n/\\n/g; # keep output on one line
106   ok(($msg !~ /ABORT/),"vmsish ERR exit, vmsish hushed at runtime, DCL error message check");
114   $msg = do_a_perl('vmsish_test.pl');
115   $msg =~ s/\n/\\n/g; # keep output on one line
116   ok(($msg !~ /ABORT/),"compile ERR exit, vmsish hushed, DCL error message check");