--- AnyEvent/t/io_common	2012/03/28 23:45:47	1.4
+++ AnyEvent/t/io_common	2012/04/02 04:03:02	1.5
@@ -3,7 +3,7 @@
 $| = 1;
 
 BEGIN {
-   print "1..35\n";
+   print "1..37\n";
    print "ok 1 # MODEL=$AnyEvent::IO::MODEL\n";
 }
 use AnyEvent;
@@ -40,10 +40,13 @@
 
 t 0, rmdir => $DIR;
 
-t 1, write => $fh, "test1";
+t 1, write => $fh, "tes--";
 t 1, write => $fh, "test2";
 t 1, write => $fh, "";
 
+t 1, seek  => $fh, 3, 0;
+t 1, write => $fh, "t1";
+
 t 1, stat => $fh;
 print -s _ != 10 ? "not " : "", "ok ", $t++, " # stat size\n";