This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
patch is silly when creating new files: don't run
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 11 Jan 2002 13:57:38 +0000 (13:57 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 11 Jan 2002 13:57:38 +0000 (13:57 +0000)
patch more than once.

p4raw-id: //depot/perl@14181

lib/Test/Simple/t/buffer.t
lib/Test/Simple/t/diag.t

index 7cc64d9..6039e4a 100644 (file)
@@ -20,25 +20,3 @@ for my $num (1..10) {
     $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";
-}
index 7954ed0..0d6769b 100644 (file)
@@ -55,60 +55,3 @@ sub PRINT {
        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('', @_);
-}