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; $@");
if ($@) {
# No - so do not test insane fails.
$@ =~ s/\n/\n# /g;
- skip("No Socket::AF_INET # $@");
}
-else {
+SKIP: {
+ skip("No Socket::AF_INET # $@") if $@;
my $ip = v2004.148.0.1;
my $host;
eval { $host = gethostbyaddr($ip,Socket::AF_INET) };