Add test for R#$3014

Raku · Jun 23, 2019 · 270e09c · 270e09c
1 parent f8bef1a
commit 270e09c
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/S32-list/seq.t b/S32-list/seq.t
@@ -3,7 +3,7 @@ use Test;
 use lib $?FILE.IO.parent(2).add("packages/Test-Helpers");
 use Test::Util;
 
-plan 42;
+plan 44;
 
 my @result = 1,2,3;
 
@@ -236,3 +236,11 @@ group-of 2 => 'ZEN slices do not cache Seqs' => {
     (my $z-list := ().Seq)[].iterator;
     throws-like { $z-list.iterator }, X::Seq::Consumed, '[] ZEN slice';
 }
+
+
+# R#3014
+{
+    my $s = (1, 2, 3).Seq;
+    is $s.iterator.pull-one, 1, 'did we get 1 as the first value';
+    dies-ok { $s[0] }, 'did accessing first element die';
+}