[poe-commits] SF.net SVN: poe: [1969] trunk/poe/mylib/gen-tests.perl

[<bs...@us...>]

Revision: 1969
Author:   bsmith
Date:     2006-05-30 12:10:28 -0700 (Tue, 30 May 2006)
ViewCVS:  http://svn.sourceforge.net/poe/?rev=1969&view=rev

Log Message:
-----------
Modified gen-tests to use CORE::exit instead of POSIX::_exit, and to use
Test::More in the outer script as this sets up handy things like autoflush.

Modified Paths:
--------------
    trunk/poe/mylib/gen-tests.perl
Modified: trunk/poe/mylib/gen-tests.perl
===================================================================
--- trunk/poe/mylib/gen-tests.perl	2006-05-30 18:55:43 UTC (rev 1968)
+++ trunk/poe/mylib/gen-tests.perl	2006-05-30 19:10:28 UTC (rev 1969)
@@ -25,12 +25,13 @@
     "use strict;\n" .
     "use POSIX qw(_exit);\n" .
     "use lib qw(--base_lib--);\n" .
+    "use Test::More;\n # this setups autoflushing" .
     "\n" .
     "\$ENV{POE_IMPLEMENTATION} = '--implementation--';\n" .
     "\n" .
-    "require '--base_file--';\n" .
+    "do '--base_file--';\n" .
     "\n" .
-    "POSIX::_exit(0);\n"
+    "CORE::exit 0;\n"
   );
 
   derive_files(
@@ -141,12 +142,13 @@
     "use POSIX qw(_exit);\n" .
 		"--no_sys--" .
     "use lib qw(--base_lib--);\n" .
+    "use Test::More;\n # this setups autoflushing" .
     "--display--" .
     "--module--" .
     "\n" .
-    "require '--base_file--';\n" .
+    "do '--base_file--';\n" .
     "\n" .
-    "POSIX::_exit(0);\n"
+    "CORE::exit 0;\n"
   );
 
   derive_files(


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.