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

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

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

print "ok 1\n";

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

print "ok 2\n";

do_var (var => \$var, poll => 'w');

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