From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Thu, 21 Jun 2007 14:28:12 +0000 (-0400)
Subject: Remove orphaned (and unused) Test::Simple test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ebbf13f2d6b71e644ff7236eeae62f89a124f231;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
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");
-