[reduce.t] tests for RT #76110

Raku · Jan 31, 2011 · 5b5d98a · 5b5d98a
1 parent 32dd626
commit 5b5d98a
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/S03-metaops/reduce.t b/S03-metaops/reduce.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 354;
+plan 356;
 
 =begin pod
 
@@ -94,6 +94,12 @@ L<"http://groups.google.de/group/perl.perl6.language/msg/bd9eb275d5da2eda">
     is (~ [\**]  3, 2, 0),   "0 1 3",   "[\\**] (right assoc) works (2)";
 }
 
+# RT #76110
+{
+    is ~([\+] [\+] 1 xx 5), '1 3 6 10 15', 'two nested [\+]';
+    is ([+] [1, 2, 3, 4]), 4,  '[+] does not flatten []-arrays';
+}
+
 {
   my @array = (Mu, Mu, 3, Mu, 5);
   is ([//]  @array), 3, "[//] works";