Add test for reducing a Seq with operator =>

smls · smls · commit 9ea27ad2e768 · 2017-10-06T23:34:19.000+02:00
This closes RT #130906.
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

Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`use v6;`
`2`	`2`	`use Test;`
`3`		`-plan 558;`
	`3`	`+plan 559;`
`4`	`4`
`5`	`5`	`=begin pod`
`6`	`6`
`@@ -148,6 +148,9 @@ L<"http://groups.google.de/group/perl.perl6.language/msg/bd9eb275d5da2eda">`
`148`	`148`	`is (try {$list.value.value}), 3, "[=>] works (3)";`
`149`	`149`	`}`
`150`	`150`
	`151`	`+# RT #130906`
	`152`	`+is-deeply ([=>] (1, 2).Seq), (1 => 2), "[=>] works on Seq";`
	`153`	`+`
`151`	`154`	`{`
`152`	`155`	`my @array = <5 -3 7 0 1 -9>;`
`153`	`156`	`# according to http://irclog.perlgeek.de/perl6/2008-09-10#i_560910`