diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-02-08 07:36:40 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-02-08 07:36:40 +0000 |
| commit | 46d4dcbda33f17cc3dd58db4c256e3af360de90f (patch) | |
| tree | 3a156e98d3746545161fd3cb5dcea0370478ec1e /lib/vmsish.t | |
| parent | 7bcd4b28bc6f2da27688c5f5c526809a91f53178 (diff) | |
| download | perl-46d4dcbda33f17cc3dd58db4c256e3af360de90f.tar.gz | |
Convert vmsish.t to Test::More from test.pl
It's not actually using any of the features of test.pl.
Diffstat (limited to 'lib/vmsish.t')
| -rw-r--r-- | lib/vmsish.t | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/vmsish.t b/lib/vmsish.t index 9e409a9d86..fbdca93b70 100644 --- a/lib/vmsish.t +++ b/lib/vmsish.t @@ -10,8 +10,7 @@ $perl = VMS::Filespec::vmsify($perl) if $^O eq 'VMS'; my $Invoke_Perl = qq(MCR $perl "-I[-.lib]"); -BEGIN { require "./test.pl"; } -plan(tests => 25); +use Test::More tests => 25; SKIP: { skip("tests for non-VMS only", 1) if $^O eq 'VMS'; @@ -53,7 +52,7 @@ is($?,0,"outer lex scope of vmsish [POSIX status]"); $msg = do_a_perl('-e "exit 1"'); $msg =~ s/\n/\\n/g; # keep output on one line - like($msg,'ABORT', "POSIX ERR exit, DCL error message check"); + like($msg, qr/ABORT/, "POSIX ERR exit, DCL error message check"); is($?&1,0,"vmsish status check, POSIX ERR exit"); $msg = do_a_perl('-e "use vmsish qw(exit); exit 1"'); @@ -63,7 +62,7 @@ is($?,0,"outer lex scope of vmsish [POSIX status]"); $msg = do_a_perl('-e "use vmsish qw(exit); exit 44"'); $msg =~ s/\n/\\n/g; # keep output on one line - like($msg, 'ABORT', "vmsish ERR exit, DCL error message check"); + like($msg, qr/ABORT/, "vmsish ERR exit, DCL error message check"); is($?&1,0,"vmsish ERR exit, vmsish status check"); $msg = do_a_perl('-e "use vmsish qw(hushed); exit 1"'); @@ -76,7 +75,7 @@ is($?,0,"outer lex scope of vmsish [POSIX status]"); $msg = do_a_perl('-e "use vmsish qw(exit hushed); no vmsish qw(hushed); exit 44"'); $msg =~ s/\n/\\n/g; # keep output on one line - like($msg,'ABORT',"vmsish ERR exit, no vmsish hushed, DCL error message check"); + like($msg, qr/ABORT/,"vmsish ERR exit, no vmsish hushed, DCL error message check"); $msg = do_a_perl('-e "use vmsish qw(hushed); die(qw(blah));"'); $msg =~ s/\n/\\n/g; # keep output on one line |