diff options
Diffstat (limited to 'lib/ExtUtils/t/Command.t')
| -rw-r--r-- | lib/ExtUtils/t/Command.t | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/ExtUtils/t/Command.t b/lib/ExtUtils/t/Command.t index 01d018648e..709f3e1fce 100644 --- a/lib/ExtUtils/t/Command.t +++ b/lib/ExtUtils/t/Command.t @@ -41,8 +41,12 @@ BEGIN { } } + + # % means 'match one character' on VMS. Everything else is ? + my $match_char = $^O eq 'VMS' ? '%' : '?'; + ($ARGV[0] = $file) =~ s/.\z/$match_char/; + # this should find the file - ($ARGV[0] = $file) =~ s/.\z/\?/; ExtUtils::Command::expand_wildcards(); is( scalar @ARGV, 1, 'found one file' ); @@ -97,8 +101,8 @@ BEGIN { # to the beginning of the day in Win95. # There's a small chance of a 1 second flutter here. my $stamp = (stat($ARGV[0]))[9]; - ok( abs($now - $stamp) <= 1, 'checking modify time stamp' ) || - print "# mtime == $stamp, should be $now\n"; + cmp_ok( abs($now - $stamp), '<=', 1, 'checking modify time stamp' ) || + diag "mtime == $stamp, should be $now"; SKIP: { if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || |