BEGIN { $| = 1; print "1..5\n"; }

END {print "not ok 1\n" unless $loaded;}

use Coro;
use Coro::EV;
$loaded = 1;

print "ok 1\n";

async {
   print "ok 3\n";
   $var = 7;
   print "ok 4\n";
};

print "ok 2\n";

Coro::EV::timed_io_once \*STDOUT, EV::WRITE
   unless $^O =~ /mswin32/i; # *sigh*
cede;

print $var == 7 ? "ok 5\n" : "not ok 5\n";