$|=1;
print "1..17\n";
no warnings;
use Coro;
my @enter = (3, 8, 12, -1);
my @leave = (6, 10, 14, -1);
async {
print "ok 2\n";
{
Coro::on_enter {
print "ok ", shift @enter, "\n";
};
print "ok 4\n";
Coro::on_leave {
print "ok ", shift @leave, "\n";
};
print "ok 5\n";
cede;
print "ok 9\n";
cede;
print "ok 13\n";
}
print "ok 15\n";
$cb = Coro::rouse_cb;
print "ok 16\n";
};
print "ok 1\n";
cede;
print "ok 7\n";
cede;
print "ok 11\n";
cede;
print "ok 17\n";