diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-10-16 23:42:41 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-17 11:00:54 +0000 |
| commit | 33459055ff280d2a3b935d256531a576b162ec79 (patch) | |
| tree | b5db2b0ac58eaf694f316a8e7f0b79159cafe88c /lib/Test/Simple/t/missing.t | |
| parent | 60e23f2ffd1cd9673f7e06415d666f29696b7d96 (diff) | |
| download | perl-33459055ff280d2a3b935d256531a576b162ec79.tar.gz | |
Test::Simple 0.32
Message-ID: <20011017034241.A25038@blackrider>
p4raw-id: //depot/perl@12472
Diffstat (limited to 'lib/Test/Simple/t/missing.t')
| -rw-r--r-- | lib/Test/Simple/t/missing.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/Test/Simple/t/missing.t b/lib/Test/Simple/t/missing.t index 21235a9ee8..9030329cbf 100644 --- a/lib/Test/Simple/t/missing.t +++ b/lib/Test/Simple/t/missing.t @@ -1,10 +1,9 @@ -# Can't use Test.pm, that's a 5.005 thing. - BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } +# Can't use Test.pm, that's a 5.005 thing. package My::Test; print "1..2\n"; @@ -44,7 +43,10 @@ ok 1 - Foo not ok 2 - Bar OUT - My::Test::ok($$err =~ /Looks like you planned 5 tests but only ran 2/); + My::Test::ok($$err eq <<ERR); +# Failed test ($0 at line 31) +# Looks like you planned 5 tests but only ran 2. +ERR exit 0; } |