--- Coro/t/01_process.t	2001/07/10 01:43:21	1.1
+++ Coro/t/01_process.t	2006/11/30 18:21:14	1.6
@@ -1,14 +1,24 @@
 $|=1;
-print "1..3\n";
+print "1..6\n";
 
 use Coro;
-use Coro::Process;
 
 sub p1 : Coro {
    print "ok 2\n";
 }
 
 print "ok 1\n";
-yield;
+cede;
 print "ok 3\n";
 
+my $c1 = async {
+   print "ok 5\n";
+   cede;
+};
+
+print $c1->ready ? "not " : "", "ok 4\n";
+
+cede;
+
+print "ok 6\n";
+