Remove code specific to MacOS Classic from core tests

[p5sagit/p5-mst-13.2.git] / t / op / studytied.t

diff --git a/t/op/studytied.t b/t/op/studytied.t
index d50c964..288bcd7 100644 (file)
--- a/t/op/studytied.t
+++ b/t/op/studytied.t
@@ -3,12 +3,13 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    require './test.pl';
 }
 
 use strict;
 use warnings;
 
-use Test::More tests => 14;
+plan tests => 14;
 
 {
     package J;
@@ -45,6 +46,6 @@ for my $do_study qw( 0 1 ) {
     is( index( $x, 'n' ), 0,    qq{"next" contains "n" at pos 0} );
 
     # The letter "t" is in both, but in different positions
-    ok( $x =~ /t/,              qq{"next" matches /x/} );
-    is( index( $x, 't' ), 3,    qq{"next" contains "x" at pos 3} );
+    ok( $x =~ /t/,              qq{"next" matches /t/} );
+    is( index( $x, 't' ), 3,    qq{"next" contains "t" at pos 3} );
 }