Test list(Seq)/Seq.list gives lists

Author: zoffixznet

S03-sequence/basic.t

@@ -3,7 +3,7 @@ use Test;
 
 # L<S03/List infix precedence/"the sequence operator">
 
-plan 143;
+plan 144;
 
 # single-term sequence
 
@@ -279,4 +279,16 @@ is (1 …^ 10), 1..^10, 'Unicode ellipsis works excluding final value';
     ok !('a' ... 'z').is-lazy, "Final 'z' is not lazy";
     ok !({rand} ... * > .5).is-lazy, "Final condition is not lazy";
 }
+
+subtest 'list of Seq is List' => {
+    plan 4;
+
+    my $lmeth := (1, 2, 3).Seq.list;
+    isa-ok $lmeth, List, 'got List from .list';
+    is-deeply $lmeth, (1, 2, 3), 'correct contents from .list';
+
+    my $lsub  := list (1, 2, 3).Seq;
+    isa-ok $lsub, List, 'got List from &list';
+    is-deeply $lsub, (1, 2, 3), 'correct contents from &list';
+}
 # vim: ft=perl6