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

no warnings;
use strict;

use EV;

my ($a1, $a2, $a3);

$a3 = EV::async sub {
   print "not ok 1\n";
};
$a2 = EV::async sub {
   print "ok 4\n";
   $a1->cb (sub {
      print "ok 5\n";
      EV::unloop;
   });
   $a1->send;
};
$a1 = EV::async sub {
   print "ok 3\n";
   $a2->send;
};

print "ok 1\n";
$a1->send;
$a1->send;
$a1->send;
print "ok 2\n";
EV::loop;
print "ok 6\n";