--- Coro/t/00_basic.t	2007/10/03 10:29:41	1.9
+++ Coro/t/00_basic.t	2007/10/03 16:03:17	1.10
@@ -1,4 +1,4 @@
-BEGIN { $| = 1; print "1..8\n"; }
+BEGIN { $| = 1; print "1..9\n"; }
 END {print "not ok 1\n" unless $loaded;}
 use Coro::State;
 $loaded = 1;
@@ -9,19 +9,20 @@
 my $procb = new Coro::State \&b;
 
 sub a {
+   print $/ eq "\n" ? "" : "not ", "ok 3\n";
    $/ = 77;
-   print "ok 3\n";
+   print "ok 4\n";
    $proca->transfer ($main);
-   print $/ == 77 ? "" : "not ", "ok 5\n";
+   print $/ == 77 ? "" : "not ", "ok 6\n";
    $proca->transfer ($main);
-   print "not ok 6\n";
+   print "not ok 7\n";
    die;
 }
 
 sub b {
-   print $/ != 55 ? "not " : "", "ok 7\n";
+   print $/ ne "\n" ? "not " : "", "ok 8\n";
    $procb->transfer ($main);
-   print "not ok 8\n";
+   print "not ok 9\n";
    die;
 }
 
@@ -29,9 +30,9 @@
 
 print "ok 2\n";
 $main->transfer ($proca);
-print $/ != 55 ? "not " : "ok 4\n";
+print $/ != 55 ? "not " : "ok 5\n";
 $main->transfer ($proca);
-print $/ != 55 ? "not " : "ok 6\n";
+print $/ != 55 ? "not " : "ok 7\n";
 $main->transfer ($procb);
-print $/ != 55 ? "not " : "ok 8\n";
+print $/ != 55 ? "not " : "ok 9\n";