Changeset 22473 for t

Show
Ignore:
Timestamp:
10/01/08 17:09:57 (2 months ago)
Author:
moritz
Message:

[t/spec] simplified next.t a bit to use initialized variables; fudged for
rakduo.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • t/spec/S04-statements/next.t

    r21405 r22473  
    5454} 
    5555 
     56#?rakudo todo 'lexical vars in eval' 
    5657{ 
    5758    my $tracker="err"; eval '$tracker = 0; DONE: for 1..2 { next DONE; $tracker++;}'; 
    … …  
    7172} 
    7273 
     74#?rakudo todo 'lexical vars in eval' 
    7375{ 
    7476    my $tracker="err"; eval '$tracker = 0; OUT: for 1..2 { IN: for 1..2 { next OUT; $tracker++; } }'; 
    … …  
    8789 
    8890{ 
    89   my $foo; 
     91  my $foo = ''; 
    9092  for 1..2 -> $a { 
    9193    $foo ~= "A"; 
    … …  
    99101 
    100102{ 
    101     my $bar; 
     103    my $bar = ''; 
    102104    for 1..2 -> $a { 
    103105        $bar ~= "A"; 
    … …  
    113115} 
    114116 
     117#?rakudo skip 'next on while-loops' 
    115118{ 
    116119    my @log;     
    117     my $i; 
     120    my $i = 0; 
    118121    while ++$i < 2 { 
    119122        push @log, "before"; 
    … …  
    136139} 
    137140 
     141#?rakudo skip 'next on loop-loops' 
    138142{ 
    139143    my $i = 0;