Test Seq.perl works on cached Seqs

RT#131222: https://rt.perl.org/Ticket/Display.html?id=131222
Rakudo fix: rakudo/rakudo@54f50956ad

Author: zoffixznet

S32-list/seq.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 35;
+plan 36;
 
 my @result = 1,2,3;
 
@@ -142,3 +142,11 @@ is-deeply @searches[0].Array, @expected-searches, 'seq => array works 3';
     is $a, (1) xx 10, 'from-loop(&body, &condition, &afterward) terminates calling &body if &condition returns False';
     is $count, 10, '&afterward is called after each call to &body.';
 }
+
+
+# RT#131222
+with (1, 2).Seq {
+    .cache; # Cache the seq
+    is .perl, (1, 2).Seq.perl,
+        '.perl on cached Seq does not think it was consumed';
+}