@@ -29,7 +29,7 @@ plan(22);
29
29
# nqp::continuationcontrol(0, nqp::null(), { $run++ });
30
30
# CATCH { $ex := $! }
31
31
# }
32
- # ok( $ex ~~ /'no matching'/, 'shift dies with no reset' );
32
+ # ok( $ex ~~ /'no matching'/, 'control dies with no reset' );
33
33
# ok( $run == 0, '...without running argument' );
34
34
35
35
# $ex := '';
@@ -59,12 +59,12 @@ plan(22);
59
59
ok ( $ log eq ' 123' , ' control returns from reset' );
60
60
ok ( $ savecont , ' got a continuation' );
61
61
62
- ok ( $ reset_returned == 10 , ' shift argument return value is reset return value' );
62
+ ok ( $ reset_returned == 10 , ' control argument return value is reset return value' );
63
63
64
64
$ log := ' ' ;
65
65
$ reset_returned := nqp ::continuationinvoke($ savecont , { $ log := $ log ~ ' 5' ; 15 });
66
66
ok ( $ log eq ' 54' , ' continuation invoke "returns" from control' );
67
- ok ( $ shift_returned == 15 , ' continuation invoke argument is shift return value' );
67
+ ok ( $ shift_returned == 15 , ' continuation invoke argument is control return value' );
68
68
ok ( $ reset_returned == 30 , ' reset block return value is continuation invoke return value' );
69
69
70
70
ok ( nqp ::continuationinvoke($ savecont , {25 }) == 50 , ' continuation can be used more than once' );
@@ -94,7 +94,7 @@ plan(22);
94
94
nqp ::continuationcontrol(0 , nqp ::null(), -> $ c { 42 });
95
95
10 ;
96
96
}) * 3 ;
97
- }) == 126 , ' null shift matches innermost level' );
97
+ }) == 126 , ' null control matches innermost level' );
98
98
99
99
my $ cont := nqp ::continuationreset($ A , {
100
100
nqp ::continuationreset($ B , {
0 commit comments