Changeset 21455 for perl5

Timestamp:

07/23/08 16:25:23 (4 months ago)

Author:

fglock

Message:

[v6.pm] version 0.024 # 3176 tests pass

Location:

perl5/Pugs-Compiler-Perl6

Files:

• ChangeLog (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• Makefile.PL (modified) (2 diffs)
• lib/v6.pm (modified) (1 diff)

perl5/Pugs-Compiler-Perl6/ChangeLog

@@ +1 @@
+0.024  2008-07-23
+
+- many more tests added; the bigger tests are now split into smaller files
+
 0.023  2008-07-21
 

perl5/Pugs-Compiler-Perl6/MANIFEST

@@ -123 +123 @@
 t/regex/from_perl6_rules/anchors.t
 t/regex/from_perl6_rules/inline.t
-t/regex/from_perl6_rules/named_chars-1.t
-t/regex/from_perl6_rules/named_chars-2.t
+t/regex/from_perl6_rules/named_chars-00.t
+t/regex/from_perl6_rules/named_chars-01.t
 t/regex/from_perl6_rules/noncap.t
+t/regex/from_perl6_rules/propcharset-00.t
+t/regex/from_perl6_rules/propcharset-01.t
+t/regex/from_perl6_rules/propcharset-02.t
+t/regex/from_perl6_rules/propcharset-03.t
+t/regex/from_perl6_rules/propcharset-04.t
+t/regex/from_perl6_rules/propcharset-05.t
+t/regex/from_perl6_rules/propcharset-06.t
+t/regex/from_perl6_rules/propcharset-07.t
+t/regex/from_perl6_rules/propcharset-08.t
+t/regex/from_perl6_rules/propcharset-09.t
+t/regex/from_perl6_rules/propcharset-10.t
+t/regex/from_perl6_rules/propcharset-11.t
+t/regex/from_perl6_rules/propcharset-12.t
 t/regex/rx_perl5_escape.t
 t/regex/smartparse.t

perl5/Pugs-Compiler-Perl6/Makefile.PL

@@ -20 +20 @@
 all_from('lib/v6.pm');
 
-requires('Pugs::Compiler::Rule' => '0.32');
+requires('Pugs::Compiler::Rule' => '0.33');
 requires('Module::Compile'      => '0.20');
 requires('Scalar::Util'         => '0');
@@ -40 +40 @@
     # split big tests in smaller files
     if ( $out =~ /\.t$/ && length($text) > 30000 ) {
-        $out =~ s/-?(\d*)\.t$/ "-" . (($1||0)+1) . ".t" /e;
+        $out =~ s/-?(\d*)\.t$/ "-" . sprintf("%02d", (($1||0)+0)) . ".t" /e;
         my ($part, $text) = $text =~ /^(.{20000,}?\n)(.*)/s;
         $rewrite_test->($out, $part);
-        $out =~ s/-?(\d*)\.t$/ "-" . (($1||0)+1) . ".t" /e;
+        $out =~ s/-?(\d*)\.t$/ "-" . sprintf("%02d", (($1||0)+1)) . ".t" /e;
         $rewrite_test->($out, $text);
         return;
     }
 
-    # fix problems caused by splitting
-    if ( $out eq 't/regex/from_perl6_rules/named_chars-1.t' ) {
-        $text =~ s/^plan \d+;/plan 200;/m;
-        $text =~ s/^force_todo.*?\n//m;
+    # fix problems caused by splitting; update the "todo" lists
+    
+    if ( $out eq 't/regex/from_perl6_rules/named_chars-00.t' ) {
+        $text =~ s/^\s*plan \d+;/plan 200;/m;
+        $text =~ s/^\s*force_todo.*?\n//m;
         $text .= "}\n";
     }
-    if ( $out eq 't/regex/from_perl6_rules/named_chars-2.t' ) {
+    if ( $out eq 't/regex/from_perl6_rules/named_chars-01.t' ) {
         $text = 
-              "plan 219\n"
+              "plan 219;\n"
             . "{\n"
+            . $text;
+    }
+    if ( $out =~ m{t/regex/from_perl6_rules/propcharset-(\d+).t} ) {
+        if ( $1 eq '00' ) {
+            $text =~ s/^\s*plan \d+;//m;
+            $text =~ s/^\s*force_todo.*?\n//m;
+            $text .= "}\n";
+        }
+        $text = "{\n" . $text   if $1 eq '12';
+        $text = 
+              ( $1 eq '00' ? "plan 177;\nforce_todo(111);\n" 
+              : $1 eq '01' ? "plan 190;\n" 
+              : $1 eq '02' ? "plan 185;\n" 
+              : $1 eq '03' ? "plan 205;\nforce_todo(120, 122);\n" 
+              : $1 eq '04' ? "plan 207;\nforce_todo(137, 139, 167);\n" 
+              : $1 eq '05' ? "plan 206;\n" 
+              : $1 eq '06' ? "plan 182;\nforce_todo(171, 173);\n" 
+              : $1 eq '07' ? "plan 172;\nforce_todo(49, 94, 96, 109, 154);\n" 
+              : $1 eq '08' ? "plan 173;\n" 
+              : $1 eq '09' ? "plan 173;\n" 
+              : $1 eq '10' ? "plan 173;\n" 
+              : $1 eq '11' ? "plan 173;\n" 
+              : $1 eq '12' ? "plan 133;\n" 
+              : "" )
             . $text;
     }

perl5/Pugs-Compiler-Perl6/lib/v6.pm

@@ -1 +1 @@
 package v6;
-$v6::VERSION = '0.023';
+$v6::VERSION = '0.024';
 
 # Documentation in the __END__