|
55 | 55 | },
|
56 | 56 | {
|
57 | 57 | name => 'while_push_join',
|
58 |
| - skip => [qw( nqp-moarvm )], |
59 | 58 | scale => 1 << 7,
|
60 | 59 | perl5 => 'my @a; my $i = 0; while (++$i <= SCALE) { push @a, "x" }; my $s = join "" => @a;',
|
61 | 60 | perl6 => 'my @a; my $i = 0; while (++$i <= SCALE) { @a.push("x") }; my $s; $s = @a.join;',
|
62 | 61 | nqp => 'my @a; my $i := 0; while ($i := $i + 1) <= SCALE { @a.push("x"); }; my $s := nqp::join("",@a);',
|
63 | 62 | },
|
64 | 63 | {
|
65 | 64 | name => 'while_push',
|
66 |
| - skip => [qw( nqp-moarvm )], |
67 | 65 | scale => 1 << 7,
|
68 | 66 | perl5 => 'my @a; my $i = 0; while (++$i <= SCALE) { push @a, 1 }',
|
69 | 67 | perl6 => 'my @a; my $i = 0; while (++$i <= SCALE) { push @a, 1 }',
|
|
85 | 83 | },
|
86 | 84 | {
|
87 | 85 | name => 'postwhile_nil',
|
88 |
| - skip => [qw( nqp-moarvm )], |
89 | 86 | scale => 1 << 10,
|
90 | 87 | perl5 => 'my $i = -SCALE || exit(0); () while ++$i;',
|
91 | 88 | perl6 => 'my $i = -SCALE || exit(0); Nil while ++$i;',
|
92 |
| - nqp => 'my $i := -SCALE || exit(0); () while $i := $i + 1;', |
| 89 | + nqp => 'my $i := -SCALE || nqp::exit(0); () while $i := $i + 1;', |
93 | 90 | },
|
94 | 91 | {
|
95 | 92 | name => 'postwhile_nil_native',
|
96 |
| - skip => [qw( nqp-moarvm )], |
97 | 93 | scale => 1 << 10,
|
98 | 94 | perl5 => 'use integer; my $i = -SCALE || exit(0); () while ++$i;',
|
99 | 95 | perl6 => 'my int $i = -SCALE || exit(0); Nil while ++$i;',
|
100 |
| - nqp => 'my int $i := -SCALE || exit(0); () while $i := $i + 1;', |
| 96 | + nqp => 'my int $i := -SCALE || nqp::exit(0); () while $i := $i + 1;', |
101 | 97 | },
|
102 | 98 | {
|
103 | 99 | name => 'loop_empty',
|
|
0 commit comments