Changeset 21664 for perl5

Timestamp:

08/01/08 13:21:45 (4 months ago)

Author:

fglock

Message:

[v6.pm] more tests # 6500

Location:

perl5/Pugs-Compiler-Perl6

Files:

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

perl5/Pugs-Compiler-Perl6/MANIFEST

@@ -152 +152 @@
 t/regex/p6regex/regex_tests
 t/regex/perl5_1.t
-# t/regex/perl5_2.t
-# t/regex/perl5_3.t
-# t/regex/perl5_4.t
+t/regex/perl5_2.t
+t/regex/perl5_3.t
+t/regex/perl5_4.t
 t/regex/perl5_5.t
 t/regex/perl5_6.t
@@ -164 +164 @@
 t/spec/S02-builtin_data_types/array_extending.t
 t/spec/S02-builtin_data_types/nested_arrays.t
+# t/spec/S03-operators/assign.t
 t/spec/S04-statements/do.t
 t/spec/S04-statements/until.t

perl5/Pugs-Compiler-Perl6/Makefile.PL

@@ -148 +148 @@
         $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;
+    }
     
     # add "use Test" to most files