Changeset 21732 for perl5

Timestamp:

08/02/08 13:25:41 (4 months ago)

Author:

fglock

Message:

[v6.pm] more tests # 7100

Location:

perl5/Pugs-Compiler-Perl6

Files:

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

perl5/Pugs-Compiler-Perl6/MANIFEST

@@ -83 +83 @@
 t/blocks/primitive_named_params.t
 t/blocks/splatty_with_type.t
+t/builtins/math/complex_powers.t
+t/builtins/math/NaN.t
 t/builtins/math/pi_internals.t
+t/builtins/my.t
 t/closure_traits/exit_in_begin.t
 t/examples/99problems/problem38.t
@@ -115 +118 @@
 t/examples/99problems/problem94.t
 t/examples/99problems/problem96.t
+t/examples/examples.t
 t/examples/golf.t
+t/junction/array_deref.t
+t/magicals/inc.t
+t/oo/autopair_instantiation.t
+t/oo/can.t
+t/oo/class/anonymous.t
+t/oo/class_inheritance_become_infinite_loop.t
+t/oo/class_name_and_attribute_name_confliction.t
+t/oo/destruction.t
+t/oo/roles/anonymous.t
 t/oo/roles/instantiation.t
+t/oo/roles/properties.t
+t/oo/traits/parameterized.t
+t/operators/and_precedence.t
 t/operators/auto.t
 t/operators/brainos.t
+t/operators/feed.t
+t/operators/lvalue.t
 t/operators/relational.t
 t/operators/spaceship_and_datatypes.t
+t/operators/subscript_adverbs.t
 t/packages/reflection.t
+t/perl5/eval_lex.t
 t/regex/from_perl6_rules/anchors.t
+t/regex/from_perl6_rules/combchar.t
+t/regex/from_perl6_rules/context.t
 t/regex/from_perl6_rules/inline.t
 t/regex/from_perl6_rules/named_chars-00.t

perl5/Pugs-Compiler-Perl6/Makefile.PL

@@ -49 +49 @@
     }
 
-    # fix problems caused by splitting; update the "todo" lists
-    
-    
+    # update the plan and "todo" lists
+    
+    if ( $out eq 't/builtins/math/NaN.t' ) {
+        $text =~ s/^(\s*plan \d+;)/$1\nforce_todo(4);/m;
+    }
+    if ( $out eq 't/builtins/my.t' ) {
+        $text =~ s/^(\s*plan \d+;)/$1\nforce_todo(2,4,5,8,9,10,11);/m;
+    }
+    if ( $out eq 't/oo/class/anonymous.t' ) {
+        $text =~ s/^(\s*plan \d+;)/$1\nforce_todo(4,5);/m;
+    }
+    if ( $out eq 't/operators/and_precedence.t' ) {
+        $text =~ s/^(\s*plan \d+;)/$1\nforce_todo(4);/m;
+    }
+    if ( $out eq 't/operators/subscript_adverbs.t' ) {
+        $text =~ s/^(\s*plan \d+;)/$1\nforce_todo(6,7, 13,14, 19,20, 26,27, 33,34, 40,41,46,47, 53,54);/m;
+    }
     if ( $out eq 't/operators/auto.t' ) {
         $text =~ s/^(\s*plan \d+;)/$1\nforce_todo(39..43);/m;