Bring tests back from bitrot since 2009

Author: lizmat

S04-phasers/in-eval.t

@@ -4,61 +4,62 @@ use v6;
 
 use Test;
 
+plan 35;
 
 # L<S04/Phasers/Code "generated at run time" "still fire off"
 #   "can't" "travel back in time" >
-
-my ($handle);
-
-our $h;
-
 {
     my $h;
+    my $handle;
 
-    eval '$handle = { $h ~= "1"; START { $h ~= "F" }; $h ~= "2" }';
-    ok $! !~~ Exception, 'eval START {...} works';
+    eval '$handle = { $h ~= "1"; once { $h ~= "F" }; $h ~= "2" }';
+    ok $! !~~ Exception, 'eval once {...} works';
 
-    nok $h.defined, 'START {...} has not run yet';
-    lives_ok { $handle() }, 'can run code with START block';
-    is $h, '1F2', 'START {...} fired';
-    lives_ok { $handle() }, 'can run code with START block again';
-    is $h, '1F212', 'START {...} fired only once';
+    nok $h.defined, 'once {...} has not run yet';
+    lives_ok { $handle() }, 'can run code with once block';
+    is $h, '1F2', 'once {...} fired';
+    lives_ok { $handle() }, 'can run code with once block again';
+    is $h, '1F212', 'once {...} fired only once';
 
     # test that it runs again for a clone of $handle
     $h = '';
-    my $start_clone = $handle.clone;
+    my $clone = $handle.clone;
     is $h, '', 'cloning code does not run anything';
-    lives_ok { $start_clone() }, 'can run clone of code with START block';
-    #?rakudo todo 'clone of code with START should run START again'
-    is $h, '1F2', 'START {...} fired again for the clone';
-    lives_ok { $start_clone() }, 'can run clone of START block code again';
-    #?rakudo todo 'clone of code with START should not run START again'
-    is $h, '1F212', 'cloned START {...} fired only once';
+    lives_ok { $clone() }, 'can run clone of code with once block';
+    is $h, '1F2', 'once {...} fired again for the clone';
+    lives_ok { $clone() }, 'can run clone of once block code again';
+    is $h, '1F212', 'cloned once {...} fired only once';
 }
 
 {
     my $h;
+    my $handle;
 
-    eval '$handle = { $h =~ "r"; INIT { $h ~= "I" }; $h ~= "R" }';
+    eval '$handle = { $h ~= "r"; INIT { $h ~= "I" }; $h ~= "R" }';
     ok $! !~~ Exception, 'eval INIT {...} works';
+    #?rakudo todo 'not sure'
     nok $h.defined, 'INIT did not run at compile time';
-    #?rakudo 4 todo 'Could not find non-existent sub INIT'
     lives_ok { $handle() }, 'can run code with INIT block';
     is $h, 'IrR', 'INIT {...} fires at run-time';
     lives_ok { $handle() }, 'can run code with INIT block again';
     is $h, 'IrRrR', 'INIT runs only once';
 
-    # TODO: test that it does not run again for a clone of $handle (?)
+    # test that it runs again for a clone of $handle
+    $h = '';
+    my $clone = $handle.clone;
+    is $h, '', 'cloning code does not run anything';
+    lives_ok { $clone() }, 'can run clone of code with INIT block';
+    is $h, 'rR', 'INIT {...} did not fire again for the clone';
 }
 
 {
-    our $h = Mu;
+    my $h;
+    my $handle;
 
-    eval '$handle = { our $h ~= "1"; CHECK { our $h ~= "C" };'
-        ~ ' our $h ~= "2"; BEGIN { our $h ~= "B" }; our $h ~= "3" }';
+    eval '$handle = { $h ~= "1"; CHECK { $h ~= "C" };'
+        ~ '$h ~= "2"; BEGIN { $h ~= "B" }; $h ~= "3" }';
     ok $! !~~ Exception, 'eval CHECK {...} (and BEGIN {...}) works';
 
-    #?rakudo 5 todo 'Could not find non-existent sub CHECK'
     is $h, 'BC', 'CHECK and BEGIN blocks ran before run time';
     lives_ok { $handle() }, 'can run code with CHECK and BEGIN blocks';
     is $h, 'BC123', 'CHECK {...} runs at compile time after BEGIN';
@@ -67,32 +68,31 @@ our $h;
 }
 
 {
-    our $h = Mu;
+    my $h;
+    my $handle;
 
-    eval '$handle = { our $h ~= "1"; BEGIN { our $h ~= "B" }; our $h ~= "2" }';
+    eval '$handle = { $h ~= "1"; BEGIN { $h ~= "B" }; $h ~= "2" }';
     ok $! !~~ Exception, 'eval BEGIN {...} works';
 
     is $h, 'B', 'BEGIN ran before run time';
     lives_ok { $handle() }, 'can run code with BEGIN block';
     is $h, 'B12', 'BEGIN does not run again at run time';
 }
 
-#?rakudo skip 'test harness does not see test result in END'
 {
+    my $h = '';
+    my $handle;
+
     END {
-        is our $end, '12E', 'the END {...} in eval has run already';
+        is $h, '12E', 'the END {...} in eval has run already';
     }
-}
-
-{
-    our $end = Mu;
 
-    eval '$handle = { our $end ~= "1"; END { our $end ~= "E" }; our $end ~= "2" }';
+    eval '$handle = { $h ~= "1"; END { $h ~= "E" }; $h ~= "2" }';
     ok $! !~~ Exception, 'eval END {...} works';
 
-    nok $end.defined, 'END {} has not run yet';
+    is $h, '' , 'END {} has not run yet';
     lives_ok { $handle() }, 'can call code with END block';
-    is $end, '12', 'END {} does not run at run time either';
+    is $h, '12', 'END {} does not run at run time either';
 }
 
 done;