convert dist/IO/t/io_xs.t to Test::More
authorTony Cook <tony@develop-help.com>
Thu, 31 May 2012 09:27:45 +0000 (19:27 +1000)
committerTony Cook <tony@develop-help.com>
Fri, 1 Jun 2012 11:21:32 +0000 (21:21 +1000)
dist/IO/t/io_xs.t

index 585eed8..379094f 100644 (file)
@@ -15,16 +15,16 @@ BEGIN {
     }
 }
 
+use Test::More tests => 4;
 use IO::File;
 use IO::Seekable;
 
-print "1..4\n";
-
-$x = new_tmpfile IO::File or print "not ";
-print "ok 1\n";
+$x = new_tmpfile IO::File;
+ok($x, "new_tmpfile");
 print $x "ok 2\n";
 $x->seek(0,SEEK_SET);
-print <$x>;
+my $line = <$x>;
+is($line, "ok 2\n", "check we can write to the tempfile");
 
 $x->seek(0,SEEK_SET);
 print $x "not ok 3\n";
@@ -32,9 +32,10 @@ $p = $x->getpos;
 print $x "ok 3\n";
 $x->flush;
 $x->setpos($p);
-print scalar <$x>;
+$line = <$x>;
+is($line, "ok 3\n", "test getpos/setpos");
 
 $! = 0;
 $x->setpos(undef);
-print $! ? "ok 4 # $!\n" : "not ok 4\n";
+ok($!, "setpos(undef) makes errno non-zero");