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

Comparing Coro/t/03_cont.t (file contents):
Revision 1.4 by root, Sat Jul 21 18:21:45 2001 UTC vs.
Revision 1.5 by root, Mon Jul 23 02:14:20 2001 UTC

 $test = 1;
 sub a1 : Coro {
    my $cont = csub {
+      cede;
-      yield;
+      yield $_*2;
-      result $_*2;
+      cede;
-      yield;
+      yield $_*3;
-      result $_*3;
    };
    my @arr = map &$cont, 1,2,3,4,5,6;
    for(2,6,6,12,10,18) {
       print (((shift @arr == $_) ? "ok " : "not ok "), $test++, "\n");
    }
    $done++;
-   yield while 1;
+   cede while 1;
 }
 sub a2 : Coro {
    my $cont = csub {
-      yield;
+      cede;
-      result $_*20;
+      yield $_*20;
-      yield;
+      cede;
-      result $_*30;
+      yield $_*30;
    };
    my @arr = map &$cont, 1,2,3,4,5,6;
    for(20,60,60,120,100,180) {
       print (((shift @arr == $_) ? "ok " : "not ok "), $test++, "\n");
    }
    $done++;
-   yield while 1;
+   cede while 1;
 }
 print "ok ", $test++, "\n";
 $done = 0;
-yield while $done < 2;
+cede while $done < 2;
 sub cont : Cont {
-   result 2*shift;
+   yield 2*shift;
-   result 3*shift;
+   yield 3*shift;
 }
 print cont(3) ==  6 ? "ok " : "not ok ", $test++, "\n";
 print cont(4) == 12 ? "ok " : "not ok ", $test++, "\n";
 print cont(5) == 10 ? "ok " : "not ok ", $test++, "\n";

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