This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Command.t patch had some errors... sorry.
[perl5.git] / lib / ExtUtils / Command.t
index d1522d3..7596e75 100644 (file)
@@ -9,11 +9,12 @@ BEGIN {
        File::Path::rmtree( 'ecmddir' );
 }
 
-use Test::More tests => 22;
+use Test::More tests => 21;
 use File::Spec;
 
 SKIP: {
-       skip( 'ExtUtils::Command is a Win32 module', 22 ) unless $^O =~ /Win32/;
+       skip( 'ExtUtils::Command is a Win32 module', 21 )
+           unless $^O =~ /Win32/;
 
        use vars qw( *CORE::GLOBAL::exit );
 
@@ -71,11 +72,11 @@ SKIP: {
        @ARGV = ( 'ecmdfile' );
        ok( -e $ARGV[0], 'created!' );
 
-       # use utime to set the timestamps
-       $ARGV[1] = (my $now = time);
-       utime();
+       my ($now) = time;
+       utime ($now, $now, $ARGV[0]);
 
-       is( (stat($ARGV[0]))[8], $now, 'checking access time stamp' );
+       # Just checking modify time stamp, access time stamp is set
+       # to the beginning of the day in Win95
        is( (stat($ARGV[0]))[9], $now, 'checking modify time stamp' );
 
        # change a file to read-only