This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Some additional files changes for Test-Simple-0.82
authorSteve Peters <steve@fisharerojo.org>
Wed, 15 Oct 2008 13:20:02 +0000 (13:20 +0000)
committerSteve Peters <steve@fisharerojo.org>
Wed, 15 Oct 2008 13:20:02 +0000 (13:20 +0000)
p4raw-id: //depot/perl@34484

15 files changed:
t/lib/Test/Simple/Catch.pm
t/lib/Test/Simple/sample_tests/death.plx
t/lib/Test/Simple/sample_tests/death_in_eval.plx
t/lib/Test/Simple/sample_tests/death_with_handler.plx
t/lib/Test/Simple/sample_tests/exit.plx
t/lib/Test/Simple/sample_tests/extras.plx
t/lib/Test/Simple/sample_tests/five_fail.plx
t/lib/Test/Simple/sample_tests/last_minute_death.plx
t/lib/Test/Simple/sample_tests/one_fail.plx
t/lib/Test/Simple/sample_tests/pre_plan_death.plx
t/lib/Test/Simple/sample_tests/require.plx
t/lib/Test/Simple/sample_tests/success.plx
t/lib/Test/Simple/sample_tests/too_few.plx
t/lib/Test/Simple/sample_tests/too_few_fail.plx
t/lib/Test/Simple/sample_tests/two_fail.plx

index 441a125..c54228b 100644 (file)
@@ -1,9 +1,10 @@
 # For testing Test::Simple;
+# $Id: /mirror/googlecode/test-more-trunk/t/lib/Test/Simple/Catch.pm 67132 2008-10-01T01:11:04.501643Z schwern  $
 package Test::Simple::Catch;
 
 use Symbol;
 use TieOut;
-my($out_fh, $err_fh) = (gensym, gensym);
+my( $out_fh, $err_fh ) = ( gensym, gensym );
 my $out = tie *$out_fh, 'TieOut';
 my $err = tie *$err_fh, 'TieOut';
 
@@ -13,6 +14,6 @@ $t->output($out_fh);
 $t->failure_output($err_fh);
 $t->todo_output($err_fh);
 
-sub caught { return($out, $err) }
+sub caught { return( $out, $err ) }
 
 1;
index 493784c..a7c0988 100644 (file)
@@ -1,4 +1,5 @@
 require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/death.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
 
 push @INC, 't/lib';
 require Test::Simple::Catch;
index 269bffa..99a6935 100644 (file)
@@ -1,4 +1,5 @@
 require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/death_in_eval.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
 use Carp;
 
 push @INC, 't/lib';
index 2009a0e..4d871ac 100644 (file)
@@ -1,4 +1,5 @@
 require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/death_with_handler.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
 
 push @INC, 't/lib';
 require Test::Simple::Catch;
index 7f8ff73..46105a2 100644 (file)
@@ -1,3 +1,4 @@
 require Test::Builder;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/exit.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
 
 exit 1;
index c9c8952..c97a8ba 100644 (file)
@@ -1,4 +1,5 @@
 require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/extras.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
 
 push @INC, 't/lib';
 require Test::Simple::Catch;
index c058e1f..b23ebf9 100644 (file)
@@ -1,4 +1,5 @@
 require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/five_fail.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
 
 use lib 't/lib';
 require Test::Simple::Catch;
index fe8451e..318905d 100644 (file)
@@ -1,4 +1,5 @@
 require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/last_minute_death.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
 
 push @INC, 't/lib';
 require Test::Simple::Catch;
index 99c7202..5bc2fc9 100644 (file)
@@ -1,4 +1,5 @@
 require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/one_fail.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
 
 push @INC, 't/lib';
 require Test::Simple::Catch;
index f72d3b6..bea6ddb 100644 (file)
@@ -1,4 +1,5 @@
 # ID 20020716.013, the exit code would become 0 if the test died
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/pre_plan_death.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
 # before a plan.
 
 require Test::Simple;
index 1a06690..d589d01 100644 (file)
@@ -1 +1,2 @@
 require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/require.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
index 585d6c3..72f4519 100644 (file)
@@ -1,4 +1,5 @@
 require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/success.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
 
 push @INC, 't/lib';
 require Test::Simple::Catch;
index bbc630d..fc13586 100644 (file)
@@ -1,4 +1,5 @@
 require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/too_few.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
 
 push @INC, 't/lib';
 require Test::Simple::Catch;
index 5910e13..2213fdc 100644 (file)
@@ -1,4 +1,5 @@
 require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/too_few_fail.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
 
 push @INC, 't/lib';
 require Test::Simple::Catch;
@@ -9,4 +10,4 @@ Test::Simple->import(tests => 5);
 
 ok(0);
 ok(1);
-ok(0);
\ No newline at end of file
+ok(0);
index e3d9229..19755b0 100644 (file)
@@ -1,4 +1,5 @@
 require Test::Simple;
+# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/two_fail.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
 
 push @INC, 't/lib';
 require Test::Simple::Catch;