Tests that want to check the action of things at BEGIN/CHECK time sho…

…uld not go assigning the string at normal time. Otherwise, the data to test will be lost. :-)
Raku · Mar 1, 2012 · 0976c3a · 0976c3a
1 parent 616002e
commit 0976c3a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/S04-phasers/check.t b/S04-phasers/check.t
@@ -8,7 +8,7 @@ plan 5;
 # CHECK {...} block in "void" context
 #?pugs todo
 {
-    my $str = '';
+    my $str;
     BEGIN { $str ~= "begin1 "; }
     CHECK { $str ~= "check "; }
     BEGIN { $str ~= "begin2 "; }
@@ -18,7 +18,7 @@ plan 5;
 
 #?pugs todo
 {
-    my $str = '';
+    my $str;
     CHECK { $str ~= "check1 "; }
     BEGIN { $str ~= "begin "; }
     CHECK { $str ~= "check2 "; }
@@ -28,7 +28,7 @@ plan 5;
 
 # CHECK {...} blocks as rvalues
 {
-    my $str = '';
+    my $str;
     my $handle = { my $retval = CHECK { $str ~= 'C' } };
 
     is $handle(), 'C', 'our CHECK {...} block returned the correct var (1)';