Permalink
Browse files

[reduce.t] tests for RT #76110

  • Loading branch information...
1 parent 32dd626 commit 5b5d98ac2b77764c85e3368160f11bf8b63571c2 @moritz moritz committed Jan 31, 2011
Showing with 7 additions and 1 deletion.
  1. +7 −1 S03-metaops/reduce.t
View
8 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";

0 comments on commit 5b5d98a

Please sign in to comment.