--- Coro/t/01_process.t	2006/11/30 18:21:14	1.6
+++ Coro/t/01_process.t	2006/12/29 08:36:34	1.7
@@ -1,5 +1,5 @@
 $|=1;
-print "1..6\n";
+print "1..9\n";
 
 use Coro;
 
@@ -22,3 +22,15 @@
 
 print "ok 6\n";
 
+$c1->on_destroy (sub {
+   print "ok 8\n";
+});
+
+$c1->cancel;
+
+print "ok 7\n";
+
+cede;
+
+print "ok 9\n";
+