--- Coro/t/13_diewarn.t	2007/10/07 15:08:23	1.1
+++ Coro/t/13_diewarn.t	2007/10/14 19:34:09	1.4
@@ -1,31 +1,41 @@
-BEGIN { $| = 1; print "1..5\n"; }
+BEGIN { $| = 1; print "1..7\n"; }
 
 use Coro;
+use Coro::State;
 
 print "ok 1\n";
 
 async {
-   local $SIG{__WARN__} = sub { print "ok 4\n" };
+   warn "-";
+   cede;
+   warn "-";
+
+   local $SIG{__WARN__} = sub { print "ok 7\n" };
    {
-      local $SIG{__WARN__} = sub { print "ok 2\n" };
+      local $SIG{__WARN__} = sub { print "ok 5\n" };
       cede;
-      warn;
+      warn "-";
    }
    cede;
-   warn;
+   warn "-";
+   cede;
 };
 
 async {
-   local $SIG{__WARN__} = sub { print "ok 5\n" };
+   $Coro::State::WARNHOOK = sub { print "ok 3\n" };
+
+   local $SIG{__WARN__} = sub { print "ok 6\n" };
    {
-      local $SIG{__WARN__} = sub { print "ok 3\n" };
+      local $SIG{__WARN__} = sub { print "ok 4\n" };
       cede;
-      warn;
+      warn "-";
    }
    cede;
-   warn;
+   warn "-";
 };
 
+$Coro::State::WARNHOOK = sub { print "ok 2\n" };
+
 cede;
 cede;
 cede;