niecza fudge

S04-phasers/ascending-order.t

@@ -50,6 +50,7 @@ END {
     is $eof_var, 29, '$eof_var gets assigned at END time';
 }
 
+#?niecza todo 'niecza has "enter", also'
 is $hist, 'begin check init start ', 'BEGIN {} runs only once';
 nok $var_at_begin.defined, 'BEGIN {...} ran at compile time';
 nok $var_at_check.defined, 'CHECK {...} ran at compile time';

S04-phasers/descending-order.t

@@ -44,6 +44,7 @@ BEGIN {
     $var_at_begin = $var;
 }
 
+#?niecza todo 'niecza has "enter", also'
 is $hist, 'begin check init ', 'BEGIN {} runs only once';
 nok $var_at_begin.defined, 'BEGIN {...} ran at compile time';
 nok $var_at_check.defined, 'CHECK {...} ran at compile time';

S04-phasers/init.t

@@ -39,7 +39,9 @@ plan 11;
     my $handle = { my $retval = INIT { $str ~= 'I' } };
 
     is $str, 'I', 'our INIT {...} block already gets called';
+    #?niecza todo "no value"
     is $handle(), 'I', 'our INIT {...} block returned the correct var (1)';
+    #?niecza todo "no value"
     is $handle(), 'I', 'our INIT {...} block returned the correct var (2)';
     is $str, 'I', 'our rvalue INIT {...} block was executed exactly once';
 }

S04-phasers/rvalue.t

@@ -44,8 +44,11 @@ plan 16;
         $init_val = INIT { $hist ~= 'I' };
     }
 
+    #?niecza todo 'block returns no value'
     is $init(), 'BCI', 'INIT {} runs only once';
+    #?niecza todo 'block returns no value'
     is $init_val, 'BCI', 'INIT {} as rval is its ret val';
+    #?niecza todo 'block returns no value'
     is $init(), 'BCI', 'INIT {} runs only once';
 
     # Test CHECK {} as rval:
@@ -55,8 +58,11 @@ plan 16;
         $check_val = CHECK { $hist ~= 'C' };
     }
 
+    #?niecza todo 'block returns no value'
     is $check(), 'BC', 'CHECK {} runs only once';
+    #?niecza todo 'block returns no value'
     is $check_val, 'BC', 'CHECK {} as rval is its ret val';
+    #?niecza todo 'block returns no value'
     is $check(), 'BC', 'CHECK {} runs only once';
 
     # Test BEGIN {} as rval:
@@ -66,12 +72,15 @@ plan 16;
         $begin_val = BEGIN { $hist ~= 'B' };
     }
 
+    #?niecza todo 'block returns no value'
     is $begin(), 'B', 'BEGIN {} runs only once';
+    #?niecza todo 'block returns no value'
     is $begin_val, 'B', 'BEGIN {} as rval is its ret val';
+    #?niecza todo 'block returns no value'
     is $begin(), 'B', 'BEGIN {} runs only once';
 
     # Test END {} as rval:
-
+    #?niecza skip 'Excess arguments to eval, used 1 of 2 positionals'
     ok !eval 'my $end_val = END { 3 }', "END {} can't be used as a rvalue";
 }