diff options
| -rw-r--r-- | MANIFEST | 1 | ||||
| -rw-r--r-- | lib/Test/Simple/t/strays.t | 41 |
2 files changed, 0 insertions, 42 deletions
@@ -2658,7 +2658,6 @@ lib/Test/Simple/t/simple.t Test::Simple test, basic stuff lib/Test/Simple/t/skipall.t Test::More test, skip all tests lib/Test/Simple/t/skip.t Test::More test, SKIP tests lib/Test/Simple/t/sort_bug.t Test::Simple test -lib/Test/Simple/t/strays.t Test::Builder stray newline checks lib/Test/Simple/t/tbt_01basic.t Test::Builder::Tester test lib/Test/Simple/t/tbt_02fhrestore.t Test::Builder::Tester test lib/Test/Simple/t/tbt_03die.t Test::Builder::Tester test 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"); - |