gistfile1.none

pmichaud@kiwi:~/rakudo$ cat x1
use v6;

use Test;

{
    pir::say(pir::time__N);
    my $i = 0;
    $i = $i + 1 for 1, 2, 3;
    pir::say(pir::time__N);
    is $i, 3, 'for 1, 2, 3 does three iterations';
    pir::say(pir::time__N);
    1;
}


pmichaud@kiwi:~/rakudo$ ./perl6 x1
1314813489.25529
1314813489.25746
ok 1 - for 1, 2, 3 does three iterations
1314813489.26033
pmichaud@kiwi:~/rakudo$ cd ../nom
pmichaud@kiwi:~/nom$ ./perl6 x1
1314813499.15542
1314813499.15762
ok 1 - for 1, 2, 3 does three iterations
1314813499.16644
pmichaud@kiwi:~/nom$