1 files changed, 58 insertions, 0 deletions
diff --git a/cpan/Test/t/mix.t b/cpan/Test/t/mix.t
new file mode 100644
index 0000000000..5298338318
--- /dev/null
+++ b/cpan/Test/t/mix.t
@@ -0,0 +1,58 @@
+# -*-perl-*-
+use strict;
+use Test qw(:DEFAULT $TESTOUT $TESTERR $ntest);
+
+### This test is crafted in such a way as to prevent Test::Harness from
+### seeing the todo tests, otherwise you get people sending in bug reports
+### about Test.pm having "UNEXPECTEDLY SUCCEEDED" tests.
+
+open F, ">mix";
+$TESTOUT = *F{IO};
+$TESTERR = *F{IO};
+
+plan tests => 4, todo => [2,3];
+
+# line 15
+ok(sub { 
+       my $r = 0;
+       for (my $x=0; $x < 10; $x++) {
+	   $r += $x*($r+1);
+       }
+       $r
+   }, 3628799);
+
+ok(0);
+ok(1);
+
+skip(1,0);
+
+close F;
+$TESTOUT = *STDOUT{IO};
+$TESTERR = *STDERR{IO};
+$ntest = 1;
+
+open F, "mix";
+my $out = join '', <F>;
+close F;
+unlink "mix";
+
+my $expect = <<"EXPECT";
+1..4 todo 2 3;
+ok 1
+not ok 2
+# Failed test 2 in $0 at line 23 *TODO*
+ok 3 # ($0 at line 24 TODO?!)
+ok 4 # skip
+EXPECT
+
+
+sub commentless {
+  my $in = $_[0];
+  $in =~ s/^#[^\n]*\n//mg;
+  $in =~ s/\n#[^\n]*$//mg;
+  return $in;
+}
+
+
+print "1..1\n";
+ok( commentless($out), commentless($expect) );