Add tests for R#2233

Raku · Aug 29, 2018 · 8b38c7d · 8b38c7d
1 parent fc490c2
commit 8b38c7d
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/S03-smartmatch/array-array.t b/S03-smartmatch/array-array.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 69;
+plan 73;
 
 #L<S03/Smart matching/arrays are comparable>
 {
@@ -100,4 +100,13 @@ subtest '~~ with lazy iterables never throws' => {
     is-deeply $iter ~~ $iter, True, 'lazy ~~ lazy is True when same object';
 }
 
+# R#2233
+{
+    my @list = 1,2,3;
+    is-deeply @list.Seq ~~ @list.Seq, True, 'do Seqs smartmatch ok';
+    is-deeply @list.Seq.lazy ~~ @list.Seq, False, 'left Seq lazy';
+    is-deeply @list.Seq ~~ @list.Seq.lazy, False, 'right Seq lazy';
+    is-deeply @list.Seq.lazy ~~ @list.Seq.lazy, False, 'both Seqs lazy';
+}
+
 # vim: ft=perl6