Changeset 21990

Timestamp:

08/21/08 10:34:53 (3 months ago)

Author:

moritz

Message:

[t/spec] s/break/last/

Files:

• t/spec/S04-statements/given.t (modified) (3 diffs)

t/spec/S04-statements/given.t

@@ -143 +143 @@
     my ($foo, $bar) = (1, 0);
     given (1) {
-        when (1) { $foo = 2; break; $foo = 3; }
+        when (1) { $foo = 2; last; $foo = 3; }
         when (2) { $foo = 4; }
         default { $bar = 1 }
         $foo = 5;
     };
-    is($foo, 2, 'break aborts when');
-    ok(!$bar, 'break prevents default');
+    is($foo, 2, 'last aborts when');
+    ok(!$bar, 'last prevents default');
 }
 
@@ -158 +158 @@
     for 0, 1, 2 {
         when 0 { $foo++; continue }
-        when 1 { $bar++; break }
+        when 1 { $bar++; last }
         when 2 { $quux++; }
         default { $baz = $_ }
@@ -166 +166 @@
     is($bar, 1, 'second iteration');
     is($baz, 0, 'continue worked');
-    is($quux, 1, "break didn't abort loop");
+    is($quux, 1, "last didn't abort loop");
     ok(!$bad, "didn't fall through");
 }