Changeset 21674 for perl5

Timestamp:

08/01/08 14:10:29 (4 months ago)

Author:

fglock

Message:

[v6.pm] more tests # 6600

Location:

perl5/Pugs-Compiler-Perl6

Files:

• MANIFEST (modified) (2 diffs)
• Makefile.PL (modified) (1 diff)

perl5/Pugs-Compiler-Perl6/MANIFEST

@@ -149 +149 @@
 t/regex/from_perl6_rules/properties-08.t
 t/regex/from_perl6_rules/properties-09.t
+# t/regex/nonstrings.t
 t/regex/p6regex/p6regex.t
 t/regex/p6regex/regex_tests
@@ -163 +164 @@
 t/regex/smartparse.t
 t/spec/S02-builtin_data_types/array_extending.t
+t/spec/S02-builtin_data_types/flattening.t
 t/spec/S02-builtin_data_types/nested_arrays.t
+t/spec/S02-literals/autoref.t
 # t/spec/S03-operators/assign.t
 t/spec/S04-statements/do.t

perl5/Pugs-Compiler-Perl6/Makefile.PL

@@ -143 +143 @@
         $text =~ s/^\s*force_todo.*?\n/force_todo(18,34,40,51,57,66,67);\n/m;
     }
+    if ( $out eq 't/spec/S02-builtin_data_types/flattening.t' ) {
+        $text =~ s/^(\s*plan \d+;)/$1\nforce_todo(4,9,12..15);/m;
+    }
+    if ( $out eq 't/spec/S02-literals/autoref.t' ) {
+        $text =~ s/^(\s*plan \d+;)/$1\nforce_todo(9,53..57);/m;
+    }
+    if ( $out eq 't/spec/S03-operators/assign.t' ) {
+        # my @z = ($::('Foo::b')...
+        $text =~ s/^(\s+)my \@z = (\(\$::\(\'Foo::b\'\))/$1my \@z = undef; # TODO namespace problem ... = $2/m;
+        $text =~ s/^(\s+)([^\n]*?lhs treats \$::\(\'Foo::b\'\))/$1Test::ok( 0, "skip", :todo ); # $2/mg;
+    }
     if ( $out eq 't/spec/S04-statements/do.t' ) {
         $text = "force_todo(1..6,10,11,20..22);\n" . $text;  
         # redo works in perl5 blocks
         $text =~ s/^([^\n]*?\; *redo\;)/ok( 0, "redo works in perl5 blocks", :todo ) ; # $1/mg;
-    }
-    if ( $out eq 't/spec/S03-operators/assign.t' ) {
-        # my @z = ($::('Foo::b')...
-        $text =~ s/^(\s+)my \@z = (\(\$::\(\'Foo::b\'\))/$1my \@z = undef; # TODO namespace problem ... = $2/m;
-        $text =~ s/^(\s+)([^\n]*?lhs treats \$::\(\'Foo::b\'\))/$1Test::ok( 0, "skip", :todo ); # $2/mg;
     }