Changeset 5457

Timestamp:

07/12/05 01:58:48 (3 years ago)

Author:

nothingmuch

svk:copy_cache_prev:

7349

Message:

geoffb++'s next bug test case, and a similar test case for redo.

Location:

t/statements

Files:

• next.t (modified) (2 diffs)
• redo.t (added)

t/statements/next.t

@@ -15 +15 @@
 =cut
 
-plan 9;
+plan 11;
 
 # test for loops with next
@@ -109 +109 @@
         is($bar, "ABCCBCCABCCBCC", "next works on inner loop of 3");
 }
+
+{
+        my @log;        
+        my $i;
+        while ++$i < 2 {
+                push @log, "before";
+                next;
+                push @log, "after";
+        }
+        
+        is(~@log, "before", "statements after next are not executed");
+}
+
+