[v6.d REVIEW] Simplify consumed Seq .perl.EVAL

- Use fewer things
- Use more precise tests

Author: zoffixznet

S32-list/seq.t

@@ -114,15 +114,10 @@ is-deeply @searches[0].Array, @expected-searches, 'seq => array works 3';
 
 {
     # RT #127492;
-    use MONKEY-SEE-NO-EVAL;
-    my \s = ().Seq;
-    # consume the seq
-    my @dummy = s.list;
-    my \roundtripped = EVAL s.perl;
-    ok roundtripped.defined, '.perl on an iterated sequence works';
-
-    throws-like { roundtripped.list }, X::Seq::Consumed,
-        '.perl on an iterated sequence faithfully reproduces such a sequence';
+    eager my \s = ().Seq; # eager consumes the Seq
+    cmp-ok s.perl.EVAL, '~~', Seq:D, '.perl.EVAL on consumed Seq gives Seq:D';
+    throws-like { s.perl.EVAL.list }, X::Seq::Consumed,
+        '.perl.EVAL-roundtripped Seq throws when attempting to consume again';
 }
 
 {