diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-03-10 12:14:10 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-11 03:10:55 +0000 |
| commit | 711cdd39d4f86d37e86e6a8f432123eca2c03898 (patch) | |
| tree | aea62e72398d979cd22760f345721117caf8315c /lib/Test/t/skip.t | |
| parent | 9014280dc8264580f076d4325a59f22a11592058 (diff) | |
| download | perl-711cdd39d4f86d37e86e6a8f432123eca2c03898.tar.gz | |
Test.pm 1.18 -> 1.20
Message-ID: <20020310221410.GA4915@blackrider>
p4raw-id: //depot/perl@15156
Diffstat (limited to 'lib/Test/t/skip.t')
| -rw-r--r-- | lib/Test/t/skip.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Test/t/skip.t b/lib/Test/t/skip.t index 7db35e65dc..a6d1cf4c3c 100644 --- a/lib/Test/t/skip.t +++ b/lib/Test/t/skip.t @@ -1,9 +1,11 @@ # -*-perl-*- use strict; -use Test qw($TESTOUT $ntest plan ok skip); plan tests => 6; +use Test qw($TESTOUT $TESTERR $ntest plan ok skip); +plan tests => 6; open F, ">skips" or die "open skips: $!"; $TESTOUT = *F{IO}; +$TESTERR = *F{IO}; skip(1, 0); #should skip @@ -15,6 +17,7 @@ skip('skipping stones is more fun', sub { $skipped = 0 }); close F; $TESTOUT = *STDOUT{IO}; +$TESTERR = *STDERR{IO}; $ntest = 1; open F, "skips" or die "open skips: $!"; |