--- AnyEvent/t/io_common	2012/03/28 23:11:16	1.2
+++ AnyEvent/t/io_common	2012/03/28 23:44:28	1.3
@@ -58,6 +58,14 @@
 t 1, rename => "$DIR/test", "$DIR/test2";
 
 #############################################################################
+# test dir
+
+t 0, readdir => "$DIR/nonexistent";
+my $res = t 1, readdir => $DIR;
+print @$res != 1           ? "not " : "", "ok ", $t++, " # res count\n";
+print $res->[0] ne "test2" ? "not " : "", "ok ", $t++, " # res data (@$res)\n";
+
+#############################################################################
 # test file
 
 $fh = t 1, open => "$DIR/test2", O_RDONLY, 0;