--- Coro/t/00_basic.t	2001/07/03 02:53:34	1.1
+++ Coro/t/00_basic.t	2001/07/10 21:19:47	1.2
@@ -4,19 +4,20 @@
 $loaded = 1;
 print "ok 1\n";
 
-my $main = $Coro::main;
+my $main = new Coro;
 my $proc = new Coro \&a;
 
 sub a {
    print "ok 3\n";
-   $main->resume;
+   $proc->transfer($main);
    print "ok 5\n";
-   $main;
+   $proc->transfer($main);
+   die;
 }
 
 print "ok 2\n";
-$proc->resume;
+$main->transfer($proc);
 print "ok 4\n";
-$proc->resume;
+$main->transfer($proc);
 print "ok 6\n";