BEGIN {
chdir 't' if -d 't';
- @INC = '../lib';
+ @INC = qw(. ../lib);
$SIG{'__WARN__'} = sub { warn $_[0] if $DOWARN };
}
use Config;
$tests = $Config{'uvsize'} == 8 ? 47 : 44;
-require Test::More;
-Test::More->import( tests => $tests );
+require "test.pl";
+plan( tests => $tests );
eval { use v5.5.640; };
is( $@, '', "use v5.5.640; $@");
# hash keys too
$h{v150.146} = "ok";
- is('ok',$h{v111.107},'ASCII hash keys');
+ is('ok',$h{v150.146},'EBCDIC hash keys');
}
# poetry optimization should also
my $ip = v2004.148.0.1;
my $host;
eval { $host = gethostbyaddr($ip,Socket::AF_INET) };
- ok($@ =~ /Wide character/,"Non-bytes leak to gethostbyaddr");
+ like($@, qr/Wide character/, "Non-bytes leak to gethostbyaddr");
}
# Chapter 28, pp671
my $v = sprintf("%d.%.3d%.3d",$revision,$version,$subversion);
-ok( $v eq "$]", "\$^V eq \$] (string)");
+ok( $v eq "$]", qq{"\$^V eq "\$]"});
$v = $revision + $version/1000 + $subversion/1000000;