Convert sorear++'s concat suggestion into a real test

raku-community-modules · Dec 3, 2012 · 361a917 · 361a917
1 parent 8bef0a2
commit 361a917
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/TODO b/TODO
@@ -1,6 +1,3 @@
-* Hot list
-  + Investigate sorear rakudo concat performance question:
-    - $acc ~= ($x ~ $y) where $x and $y are loop-invariant but not "constant"s
 * Features
   + Documentation
     - WIP: manpage/usage

diff --git a/timeall b/timeall
@@ -266,6 +266,12 @@ my %TESTS = (
                     perl6 => 'my $s = ""; for (1 .. 100000) { $s ~= "x" }',
                     nqp   => undef,
                    },
+                   {
+                    name  => 'for_concat_2_1e5',
+                    perl5 => 'my $x = "a"; my $y = ""; for (1 .. 100000) { $y .= ($x . $x) }',
+                    perl6 => 'my $x = "a"; my $y = ""; for (1 .. 100000) { $y ~= ($x ~ $x) }',
+                    nqp   => undef,
+                   },
                    {
                     name  => 'for_push_1e3',
                     perl5 => 'my @a; for (1 .. 1000) { push @a, 1 }',