Add test for reducing a Seq with operator =>

This closes RT #130906.
Raku · Oct 6, 2017 · 9ea27ad · 9ea27ad
1 parent 59398cd
commit 9ea27ad
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/S03-metaops/reduce.t b/S03-metaops/reduce.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 558;
+plan 559;
 
 =begin pod
 
@@ -148,6 +148,9 @@ L<"http://groups.google.de/group/perl.perl6.language/msg/bd9eb275d5da2eda">
   is (try {$list.value.value}), 3, "[=>] works (3)";
 }
 
+# RT #130906
+is-deeply ([=>] (1, 2).Seq), (1 => 2), "[=>] works on Seq";
+
 {
     my @array = <5 -3 7 0 1 -9>;
     # according to http://irclog.perlgeek.de/perl6/2008-09-10#i_560910