#!perl
# Test that our files are portable across systems.
use
strict;
BEGIN {
BAIL_OUT (
'Perl version unacceptably old.'
)
if
($] < 5.008001);
$OUTPUT_AUTOFLUSH
= 1;
$WARNING
= 1;
}
my
@MODULES
= (
'Test::Portability::Files 0.05'
,
);
# Load the testing modules
use
Test::More;
plan(
skip_all
=>
"This module is non-portable - nothing to do about it."
);
exit
(0);
foreach
my
$MODULE
(
@MODULES
) {
eval
"use $MODULE"
;
if
(
$EVAL_ERROR
) {
BAIL_OUT(
"Failed to load required release-testing module $MODULE"
);
}
}
run_tests();