diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-06-21 10:28:12 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-22 15:17:23 +0000 |
| commit | ebbf13f2d6b71e644ff7236eeae62f89a124f231 (patch) | |
| tree | fdc62c3e064b0e1b5f9784e66b32796db4b1fb99 /lib/Test | |
| parent | be7cbdf38fc18549c646eca6bb10b9b2ac776fce (diff) | |
| download | perl-ebbf13f2d6b71e644ff7236eeae62f89a124f231.tar.gz | |
Remove orphaned (and unused) Test::Simple test
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510706211128h58cd5e98s49ec897bbdcce2a2@mail.gmail.com>
p4raw-id: //depot/perl@31446
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Simple/t/strays.t | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/lib/Test/Simple/t/strays.t b/lib/Test/Simple/t/strays.t deleted file mode 100644 index 8d5cecad79..0000000000 --- a/lib/Test/Simple/t/strays.t +++ /dev/null @@ -1,41 +0,0 @@ -#!/usr/bin/perl -w - -# Check that stray newlines in test output are probably handed. - -BEGIN { - print "1..0 # Skip not completed\n"; - exit 0; -} - -BEGIN { - if( $ENV{PERL_CORE} ) { - chdir 't'; - @INC = ('../lib', 'lib'); - } - else { - unshift @INC, 't/lib'; - } -} -chdir 't'; - -use TieOut; -local *FAKEOUT; -my $out = tie *FAKEOUT, 'TieOut'; - - -use Test::Builder; -my $Test = Test::Builder->new; -my $orig_out = $Test->output; -my $orig_err = $Test->failure_output; -my $orig_todo = $Test->todo_output; - -$Test->output(\*FAKEOUT); -$Test->failure_output(\*FAKEOUT); -$Test->todo_output(\*FAKEOUT); -$Test->no_plan(); - -$Test->ok(1, "name\n"); -$Test->ok(0, "foo\nbar\nbaz"); -$Test->skip("\nmoofer"); -$Test->todo_skip("foo\n\n"); - |