[ViewVC] Diff of: cvs/IO-AIO/t/03

Comparing IO-AIO/t/03_errors.t (file contents):
Revision 1.3 by root, Tue Aug 16 22:22:18 2005 UTC vs.
Revision 1.6 by root, Thu Jan 7 18:25:51 2010 UTC

 use POSIX qw(ENOENT EACCES EBADF);
 use FindBin;
 use lib "$FindBin::Bin";
 use aio_test_common;
-BEGIN { plan tests => 13 }
+BEGIN { plan tests => 12 }
 IO::AIO::min_parallel 2;
 my $tempdir = tempdir();
 };
 pcb;
 # write to file open for reading
 ok(open(F, $some_file)) or die $!;
-aio_write *F, 0, 10, "foobarbaz.", 0, sub {
+eval { aio_write *F, 0, 10, "foobarbaz.", 0, sub { ok (0) } };
-    my $written = shift;
+ok ($@ =~ /mode mismatch/);
-    ok($written < 0);
-    ok($! == EBADF);
-};
 pcb;
 close F;
 aio_symlink "\\test\\", $some_link, sub {
+   if ($^O eq "cygwin") {
+      ok (1);
+      ok (1);
+   } else {
-   ok (!$_[0]);
+      ok (!$_[0]);
-   ok ("\\test\\" eq readlink $some_link);
+      ok ("\\test\\" eq readlink $some_link);
+   }
 };
 pcb;
 unlink $some_link;
-# test unlinking and rmdir, also test order of these
+# test unlinking and rmdir
 aio_unlink $some_file, sub {
    ok (!shift);
 };
+pcb;
 aio_rmdir $some_dir, sub {
    ok (!shift);
 };
 pcb;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines