Change 14181 by jhi@alpha on 2002/01/11 13:57:38
patch is silly when creating new files: don't run
patch more than once.
Affected files ...
.... //depot/perl/lib/Test/Simple/t/buffer.t#2 edit
.... //depot/perl/lib/Test/Simple/t/diag.t#2 edit
Differences ...
==== //depot/perl/lib/Test/Simple/t/buffer.t#2 (text) ====
Index: perl/lib/Test/Simple/t/buffer.t
--- perl/lib/Test/Simple/t/buffer.t.~1~ Fri Jan 11 07:15:05 2002
+++ perl/lib/Test/Simple/t/buffer.t Fri Jan 11 07:15:05 2002
@@ -20,25 +20,3 @@
$T->current_test($tnum);
print "ok $tnum - You're ok\n";
}
-#!/usr/bin/perl
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-# Ensure that intermixed prints to STDOUT and tests come out in the
-# right order (ie. no buffering problems).
-
-use Test::More tests => 20;
-my $T = Test::Builder->new;
-$T->no_ending(1);
-
-for my $num (1..10) {
- $tnum = $num * 2;
- pass("I'm ok");
- $T->current_test($tnum);
- print "ok $tnum - You're ok\n";
-}
==== //depot/perl/lib/Test/Simple/t/diag.t#2 (text) ====
Index: perl/lib/Test/Simple/t/diag.t
--- perl/lib/Test/Simple/t/diag.t.~1~ Fri Jan 11 07:15:05 2002
+++ perl/lib/Test/Simple/t/diag.t Fri Jan 11 07:15:05 2002
@@ -55,60 +55,3 @@
my $self = shift;
$$self .= join('', @_);
}
-#!perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-
-use Test::More tests => 5;
-
-my $Test = Test::More->builder;
-
-# now make a filehandle where we can send data
-my $output;
-tie *FAKEOUT, 'FakeOut', \$output;
-
-# force diagnostic output to a filehandle, glad I added this to Test::Builder :)
-my @lines;
-{
- local $TODO = 1;
- $Test->todo_output(\*FAKEOUT);
-
- diag("a single line");
-
- push @lines, $output;
- $output = '';
-
- diag("multiple\n", "lines");
- push @lines, split(/\n/, $output);
-}
-
-is( @lines, 3, 'diag() should send messages to its filehandle' );
-like( $lines[0], '/^#\s+/', ' should add comment mark to all lines' );
-is( $lines[0], "# a single line\n", ' should send exact message' );
-is( $output, "# multiple\n# lines\n", ' should append multi messages');
-
-{
- local $TODO = 1;
- $output = '';
- diag("# foo");
-}
-is( $output, "# # foo\n", "diag() adds a # even if there's one already" );
-
-
-package FakeOut;
-
-sub TIEHANDLE {
- bless( $_[1], $_[0] );
-}
-
-sub PRINT {
- my $self = shift;
- $$self .= join('', @_);
-}
End of Patch.
