gistfile1.none

pmichaud@kiwi:~/rakudo$ export PERL6_TEST_TIMES=true
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
1314813706.81355
1314813706.81557
ok 1 - for 1, 2, 3 does three iterations
# t=1314813706.81818
1314813706.81921
pmichaud@kiwi:~/rakudo$ cd ../nom
pmichaud@kiwi:~/nom$ ./perl6 x1
1314813716.92013
1314813716.92229
ok 1 - for 1, 2, 3 does three iterations
# t=1314813716.93101
1314813716.93384
pmichaud@kiwi:~/nom$