--- AnyEvent/t/03_child.t	2007/11/09 19:34:32	1.4
+++ AnyEvent/t/03_child.t	2007/11/25 14:08:12	1.7
@@ -2,6 +2,7 @@
 BEGIN { print "1..7\n" }
 
 use AnyEvent;
+use AnyEvent::Impl::Perl;
 
 print "ok 1\n";
 
@@ -10,7 +11,7 @@
 defined $pid or die "unable to fork";
 
 # work around Tk bug until it has been fixed.
-my $timer = AnyEvent->timer (after => 2, cb => sub { });
+#my $timer = AnyEvent->timer (after => 2, cb => sub { });
 
 my $cv = AnyEvent->condvar;
 
@@ -20,8 +21,8 @@
 }
 
 my $w = AnyEvent->child (pid => $pid, cb => sub {
-   print $pid == $_[0] ? "" : "not ", "ok 3\n";
-   print 3 == ($_[1] >> 8) ? "" : "not ", "ok 4\n";
+   print $pid == $_[0] ? "" : "not ", "ok 3\ # $pid == $_[0]\n";
+   print 3 == ($_[1] >> 8) ? "" : "not ", "ok 4 # 3 == $_[1] >> 8 ($_[1])\n";
    $cv->broadcast;
 });
 
@@ -32,8 +33,8 @@
 my $cv2 = AnyEvent->condvar;
 
 my $w2 = AnyEvent->child (pid => 0, cb => sub {
-   print $pid2 == $_[0] ? "" : "not ", "ok 5\n";
-   print 7 == ($_[1] >> 8) ? "" : "not ", "ok 6\n";
+   print $pid2 == $_[0] ? "" : "not ", "ok 5 # $pid2 == $_[0]\n";
+   print 7 == ($_[1] >> 8) ? "" : "not ", "ok 6 # 7 == $_[1] >> 8 ($_[1])\n";
    $cv2->broadcast;
 });