test/utime.t

   1 #!/usr/bin/perl
   2 use test::helper qw($_real $_point);
   3 use Test::More;
   4 plan tests => 3;
   5 my (@stat);
   6 chdir($_real);
   7 open($file, '>', 'file');
   8 print($file "frog\n");
   9 close($file);
  10 chdir($_point);
  11 ok(utime(1,2,"file"),"set utime");
  12 @stat = stat("file");
  13 is($stat[8],1,"atime");
  14 is($stat[9],2,"mtime");
  15 unlink("file");