Changeset 22444 for t

Timestamp:

09/28/08 19:40:52 (2 months ago)

Author:

azawawi

Message:

[t/spec] Fixed Copy&Paste mistakes in no-implicit-block.t

Files:

• t/spec/S04-statements/no-implicit-block.t (modified) (5 diffs)

t/spec/S04-statements/no-implicit-block.t

@@ -12 +12 @@
         $y = $x + 3;
     }
-    is $x, 2, '$x assigned in while\'s condition';
-    is $y, 5, '$y assigned in while\'s body';
+    is $x, 2, '$x assigned in if\'s condition';
+    is $y, 5, '$y assigned in if\'s body';
 }
 
@@ -21 +21 @@
         $y = $x + 3;
     }
-    is $x, 2, '$x assigned in while\'s condition';
-    is $y, 5, '$y assigned in while\'s body';
+    is $x, 2, '$x assigned in unless\'s condition';
+    is $y, 5, '$y assigned in unless\'s body';
 }
 
@@ -30 +30 @@
         when 2 { $y = $x + 3; }
     }
-    is $x, 2, '$x assigned in while\'s condition';
-    is $y, 5, '$y assigned in while\'s body';
+    is $x, 2, '$x assigned in given\'s condition';
+    is $y, 5, '$y assigned in given\'s body';
 }
 
@@ -52 +52 @@
         last;
     }
-    is ~@a, '1 2 3', '@a assigned in while\'s condition';
-    is $y, 5, '$y assigned in while\'s body';
+    is ~@a, '1 2 3', '@a assigned in for\'s condition';
+    is $y, 5, '$y assigned in for\'s body';
 }
 
@@ -63 +63 @@
         last;
     }
-    is $x, 2, '$x assigned in while\'s condition';
-    is $y, 5, '$y assigned in while\'s body';
+    is $x, 2, '$x assigned in loop\'s condition';
+    is $y, 5, '$y assigned in loop\'s body';
 }