| 1 |
$|=1; |
| 2 |
print "1..5\n"; |
| 3 |
|
| 4 |
use Coro; |
| 5 |
|
| 6 |
async { |
| 7 |
my $t = eval "2"; |
| 8 |
print "ok $t\n"; |
| 9 |
cede; |
| 10 |
|
| 11 |
# a panic: restartop in this test can be caused by perl 5.8.8 not |
| 12 |
# properly handling constant folding (change 29976/28148) |
| 13 |
# (fixed in 5.10, 5.8.9) |
| 14 |
# we don't want to scare users, so disable it. |
| 15 |
$SIG{__DIE__} = undef if $] < 5.008009; |
| 16 |
|
| 17 |
print defined eval "1/0" ? "not ok" : "ok", " 4\n"; |
| 18 |
}; |
| 19 |
|
| 20 |
async { |
| 21 |
my $t = eval "3"; |
| 22 |
print "ok $t\n"; |
| 23 |
cede; |
| 24 |
print defined eval "die" ? "not ok" : "ok", " 5\n"; |
| 25 |
}; |
| 26 |
|
| 27 |
print "ok 1\n"; |
| 28 |
cede; |
| 29 |
cede; |
| 30 |
cede; |
| 31 |
cede; |
| 32 |
|
