1 files changed, 14 insertions, 16 deletions
diff --git a/dist/IO/t/io_linenum.t b/dist/IO/t/io_linenum.t
index 259f73631a..2d44f50940 100644
--- a/dist/IO/t/io_linenum.t
+++ b/dist/IO/t/io_linenum.t
@@ -10,9 +10,7 @@ BEGIN {
     require strict; import strict;
 }
 
-use Test;
-
-BEGIN { plan tests => 12 }
+use Test::More tests => 12;
 
 use IO::File;
 
@@ -32,42 +30,42 @@ open (F, $File) or die $!;
 my $io = IO::File->new($File) or die $!;
 
 <F> for (1 .. 10);
-ok(lineno($io), "10 0 10");
+is(lineno($io), "10 0 10");
 
 $io->getline for (1 .. 5);
-ok(lineno($io), "5 5 5");
+is(lineno($io), "5 5 5");
 
 <F>;
-ok(lineno($io), "11 5 11");
+is(lineno($io), "11 5 11");
 
 $io->getline;
-ok(lineno($io), "6 6 6");
+is(lineno($io), "6 6 6");
 
 $t = tell F;                                        # tell F; provokes a warning
-ok(lineno($io), "11 6 11");
+is(lineno($io), "11 6 11");
 
 <F>;
-ok(lineno($io), "12 6 12");
+is(lineno($io), "12 6 12");
 
 select F;
-ok(lineno($io), "12 6 12");
+is(lineno($io), "12 6 12");
 
 <F> for (1 .. 10);
-ok(lineno($io), "22 6 22");
+is(lineno($io), "22 6 22");
 
 $io->getline for (1 .. 5);
-ok(lineno($io), "11 11 11");
+is(lineno($io), "11 11 11");
 
 $t = tell F;
 # We used to have problems here before local $. worked.
 # input_line_number() used to use select and tell.  When we did the
-# same, that mechanism broke.  It should work now.
-ok(lineno($io), "22 11 22");
+# same, that mechanism brise.  It should work now.
+is(lineno($io), "22 11 22");
 
 {
   local $.;
   $io->getline for (1 .. 5);
-  ok(lineno($io), "16 16 16");
+  is(lineno($io), "16 16 16");
 }
 
-ok(lineno($io), "22 16 22");
+is(lineno($io), "22 16 22");