--- IO-AIO/t/06_group.t	2006/10/22 00:49:29	1.2
+++ IO-AIO/t/06_group.t	2006/10/22 10:33:19	1.3
@@ -5,9 +5,11 @@
 print "1..10\n";
 
 my $grp = aio_group sub {
-   print "ok 4\n";
+   print $_[0] == 1 && @_ == 3 ? "" : "not ", "ok 4\n";
 };
 
+$grp->result (1,2,3);
+
 my ($a, $b) =
    add $grp (aio_stat "/2", sub { print "ok 3\n" }),
             (aio_stat "/3", sub { print "not ok 3\n" });
@@ -23,9 +25,12 @@
 print "ok 5\n";
 
 $grp = aio_group sub {
-   print "not ok 6\n";
+   print @_ == 0 ? "" : "not ", "ok 6\n";
 };
 
+$grp->result (4,5,6);
+$grp->result;
+
 add $grp aio_stat "/1", sub { print "not ok 7\n" };
 
 $grp->cancel;
@@ -47,4 +52,3 @@
 IO::AIO::poll while IO::AIO::nreqs;
 
 print "ok 10\n";
-