[svn:parrot] r9393 - in trunk/languages/m4: src t/basic t/freezing

[bernhard]

Author: bernhard
Date: Fri Oct  7 10:46:26 2005
New Revision: 9393

Modified:
   trunk/languages/m4/src/m4.pir
   trunk/languages/m4/t/basic/003_getopt.t
   trunk/languages/m4/t/freezing/001_freeze.t
   trunk/languages/m4/t/freezing/002_many_files.t
Log:
Skip those 'Parrot m4' tests that entered in an infinite loop.


Modified: trunk/languages/m4/src/m4.pir
==============================================================================
--- trunk/languages/m4/src/m4.pir       (original)
+++ trunk/languages/m4/src/m4.pir       Fri Oct  7 10:46:26 2005
@@ -366,8 +366,9 @@ TODO: Pass a flag for EXIT_FAILURE and E
 
   print "Usage: ../../parrot "
   print program_name
-  print " [OPTION]... FILE\n\n"
+  print " [OPTION]... FILE\n"
   print <<"END_USAGE"
+
 Currently only long options are available.
 
 Operation modes:

Modified: trunk/languages/m4/t/basic/003_getopt.t
==============================================================================
--- trunk/languages/m4/t/basic/003_getopt.t     (original)
+++ trunk/languages/m4/t/basic/003_getopt.t     Fri Oct  7 10:46:26 2005
@@ -164,6 +164,9 @@ END_OUT
 
 
 #--------------------------------------------
+SKIP:
+{
+  skip( 'infinite loop when loading frozen state', 5 );
 $real_out     = `$parrot_m4 --reload-state=$examples_dir/only_T7_0.frozen 
$examples_dir/hello.m4 2>&1`; 
 is( $real_out, << 'END_OUT', '--reload-state' );
 Hello
@@ -200,3 +203,5 @@ Hello
 Hello
 Hello
 END_OUT
+
+};

Modified: trunk/languages/m4/t/freezing/001_freeze.t
==============================================================================
--- trunk/languages/m4/t/freezing/001_freeze.t  (original)
+++ trunk/languages/m4/t/freezing/001_freeze.t  Fri Oct  7 10:46:26 2005
@@ -5,7 +5,8 @@ use FindBin;
 use lib "$FindBin::Bin/../../lib", "$FindBin::Bin/../../../../lib";
 
 use Parrot::Config;
-use Test::More tests => 1; 
+#use Test::More tests => 1; 
+use Test::More skip_all => 'infinite loop lurking'; 
 
 my $parrot_m4 = "cd .. && .$PConfig{slash_exec}parrot$PConfig{exe} 
languages/m4/m4.pbc"; 
 my $cat  = "$PConfig{perl} -MExtUtils::Command -e cat";

Modified: trunk/languages/m4/t/freezing/002_many_files.t
==============================================================================
--- trunk/languages/m4/t/freezing/002_many_files.t      (original)
+++ trunk/languages/m4/t/freezing/002_many_files.t      Fri Oct  7 10:46:26 2005
@@ -5,7 +5,8 @@ use FindBin;
 use lib "$FindBin::Bin/../../lib", "$FindBin::Bin/../../../../lib";
 
 use Parrot::Config;
-use Test::More tests => 3; 
+#use Test::More tests => 3; 
+use Test::More skip_all => 'infinite loop lurking'; 
 
 my $real_out;
 my $parrot_m4 = "cd .. && .$PConfig{slash_exec}parrot$PConfig{exe} 
languages/m4/m4.pbc";