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

diff --git a/MANIFEST b/MANIFEST
index e438c32..dafce23 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -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 (file)
index 8d5ceca..0000000
--- 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");
-