--- IO-AIO/t/06_group.t	2006/10/22 00:19:05	1.1
+++ IO-AIO/t/06_group.t	2006/10/23 00:34:36	1.4
@@ -2,12 +2,14 @@
 
 use IO::AIO;
 
-print "1..10\n";
+print "1..12\n";
 
-my $grp = aio_group {
-   print "ok 4\n";
+my $grp = aio_group sub {
+   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" });
@@ -22,10 +24,13 @@
 
 print "ok 5\n";
 
-$grp = aio_group {
-   print "not ok 6\n";
+$grp = aio_group sub {
+   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;
@@ -34,7 +39,7 @@
 
 IO::AIO::poll while IO::AIO::nreqs;
 
-aio_group {
+aio_group sub {
    print "ok 8\n";
 };
 
@@ -48,3 +53,10 @@
 
 print "ok 10\n";
 
+aio_nop sub {
+   print "ok 11\n";
+};
+
+IO::AIO::poll while IO::AIO::nreqs;
+
+print "ok 12\n";