exit.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
# Can't use Test.pm, that's a 5.005 thing.
BEGIN {
chdir 't';
}
}
print "1..0 # Skip Need File::Spec to run this test\n";
exit 0;
}
print "1..0 # Skip test will hang on older VMS perls\n";
exit 0;
}
print "1..0 # Skip exit status broken on Mac OS\n";
exit 0;
}
my $test_num = 1;
# Utility testing functions.
print $ok;
$test_num++;
}
my %Tests = (
# Everyone Else VMS
);
if( $@ ) {
*exitstatus = sub { $_[0] >> 8 };
}
else {
}
chdir 't';
my $Perl = $^X;
# VMS can't use its own $^X in a system call until almost 5.8
# Quiet noisy 'SYS$ABORT'. 'hushed' only exists in 5.6 and up,
# but it doesn't do any harm on eariler perls.
}
My::Test::ok( $actual_exit != 0,
}
else {
My::Test::ok( $actual_exit == $exit_code,
}
}