[ViewVC] Diff of: cvs/Coro/t/00

Comparing Coro/t/00_basic.t (file contents):
Revision 1.1 by root, Tue Jul 3 02:53:34 2001 UTC vs.
Revision 1.6 by root, Mon Dec 4 13:47:56 2006 UTC

 BEGIN { $| = 1; print "1..6\n"; }
 END {print "not ok 1\n" unless $loaded;}
-use Coro;
+use Coro::State;
 $loaded = 1;
 print "ok 1\n";
-my $main = $Coro::main;
+my $main = new Coro::State;
-my $proc = new Coro \&a;
+my $proc = new Coro::State \&a;
 sub a {
    print "ok 3\n";
-   $main->resume;
+   $proc->transfer ($main);
    print "ok 5\n";
-   $main;
+   $proc->transfer ($main);
+   print "not ok 6\n";
+   die;
 }
 print "ok 2\n";
-$proc->resume;
+$main->transfer ($proc);
 print "ok 4\n";
-$proc->resume;
+$main->transfer ($proc);
 print "ok 6\n";

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines