We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent ca5c3bd commit 24ebb03Copy full SHA for 24ebb03
t/nqp/100-dispatcher.t
@@ -1,4 +1,4 @@
1
-plan(10);
+plan(7);
2
my $closure;
3
{
4
nqp::setdispatcher(100);
@@ -60,22 +60,3 @@ nqp::setdispatcherfor(400, $wraped2);
60
$wraped1();
61
$wraped2();
62
63
-sub take_or_clear($take) {
64
- my $foo := 100;
65
- if $take {
66
- nqp::takedispatcher('$foo');
67
- } else {
68
- nqp::cleardispatcher();
69
- }
70
- $foo;
71
-}
72
-
73
-if nqp::getcomp('nqp').backend.name eq 'jvm' {
74
- nqp::setdispatcherfor(400, &take_or_clear);
75
- is(take_or_clear(1), 400);
76
77
- is(take_or_clear(0), 100);
78
- is(take_or_clear(1), 100);
79
-} else {
80
- skip('skip broken tests on the jvm', 3);
81
0 commit comments