commit

raku-community-modules · Nov 23, 2012 · 4e657e7 · 4e657e7
1 parent f37c11a
commit 4e657e7
Show file tree

Hide file tree

Showing 2 changed files with 29 additions and 5 deletions.
diff --git a/TODO b/TODO
@@ -30,12 +30,12 @@
       . DONE: commit 95371a6ec5f96563fff0ce9b9ae95a95bec16cf5 (Str.trim*)
       . commit 9fc3eb254f1d377bebd4f4f89adcec96848e7c3b (IO: .say for @some_list_of_strings)
       . commit 7ac6d1ea6d8352696ca32b41080e75777ba5f9c2 (Buf creation and listification)
-      . commit af0d2e1d782f1172cf27cb64ad938b504c619dd1 (MapIter: for 1..1000000 { $i++ })
-      . commit 3bc839c00ee03491a7bf8c74923198779a8cc2bb (shiftpush: for 1..100000 { })
+      . DONE: commit af0d2e1d782f1172cf27cb64ad938b504c619dd1 (MapIter: for 1..1000000 { $i++ })
+      . DONE: commit 3bc839c00ee03491a7bf8c74923198779a8cc2bb (shiftpush: for 1..100000 { })
       . commit 0a93f6e39eb970fa1e653b13695b97789ae4d03b (object creation; iterators)
       . commit 77d4dc1d8ef5c746a5c597341ae1f5e89d66ca24 (attribute access)
       . commit 80974191c53dae18bab4d5e60d5e17fd5413e886 (stripping trailing zeroes)
-      . commit f58331690e091784a113931d78166ceff908fe03 (scalar assignment: $a = $b)
+      . DONE: commit f58331690e091784a113931d78166ceff908fe03 (scalar assignment: $a = $b)
       . commit 437675e330460d0cf801d48a635c413d532e062f (Complex ops)
       . commit 30f5cc9624b9b46ecbff88a2c234e5c9383e21ce (MapIter: map over a range)
   + Find weak points in core design

diff --git a/timeall b/timeall
@@ -185,17 +185,41 @@ my %TESTS = (
                     nqp   => 'say("Hello, World!")',
                    },
                    {
-                    name  => 'empty_while_1e5',
+                    name  => 'while_empty_1e5',
                     perl5 => 'my $i = 1; while (++$i <= 100000) { }',
                     perl6 => 'my $i = 1; while (++$i <= 100000) { }',
                     nqp   => 'my $i := 1; while ($i := $i + 1) <= 100000 { }',
                    },
                    {
-                    name  => 'empty_while_1e6',
+                    name  => 'while_empty_1e6',
                     perl5 => 'my $i = 1; while (++$i <= 1000000) { }',
                     perl6 => 'my $i = 1; while (++$i <= 1000000) { }',
                     nqp   => 'my $i := 1; while ($i := $i + 1) <= 1000000 { }',
                    },
+                   {
+                    name  => 'for_empty_1e5',
+                    perl5 => 'for (1 .. 100000) { }',
+                    perl6 => 'for (1 .. 100000) { }',
+                    nqp   => undef,
+                   },
+                   {
+                    name  => 'for_bind_1e5',
+                    perl5 => undef,
+                    perl6 => 'my $a := 0; my $b := 1; for (1 .. 100000) { $a := $b; }',
+                    nqp   => undef,
+                   },
+                   {
+                    name  => 'for_assign_1e5',
+                    perl5 => 'my $a = 0; my $b = 1; for (1 .. 100000) { $a = $b; }',
+                    perl6 => 'my $a = 0; my $b = 1; for (1 .. 100000) { $a = $b; }',
+                    nqp   => undef,
+                   },
+                   {
+                    name  => 'for_postinc_1e5',
+                    perl5 => 'my $i = 0; for (1 .. 100000) { $i++ }',
+                    perl6 => 'my $i = 0; for (1 .. 100000) { $i++ }',
+                    nqp   => undef,
+                   },
                    {
                     name  => 'for_concat_1e5',
                     perl5 => 'my $s = ""; for (1 .. 100000) { $s .= "x" }',