This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
additional test for lazy array element creation
authorZefram <zefram@fysh.org>
Tue, 16 Jan 2018 18:45:40 +0000 (18:45 +0000)
committerZefram <zefram@fysh.org>
Tue, 16 Jan 2018 18:45:40 +0000 (18:45 +0000)
t/op/array.t

index 4d16272..3d9b9d7 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
     set_up_inc('.', '../lib');
 }
 
-plan (178);
+plan (179);
 
 #
 # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them
@@ -589,6 +589,10 @@ $#a = -1; $#a++;
     my @qr = \(@q);
     is $qr[$_], \$q[$_], "lazy element creation with refgen" foreach 0..2;
     isnt $qr[1], \undef, "lazy element creation with refgen";
+    my @r;
+    $r[1] = 1;
+    foreach my $re ((), @r) { $re = 5; }
+    is join("", @r), "55", "lazy element creation with foreach";
 }
 
 "We're included by lib/Tie/Array/std.t so we need to return something true";