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 system("echo frog >file");
   8 chdir($_point);
   9 ok(utime(1,2,"file"),"set utime");
  10 @stat = stat("file");
  11 is($stat[8],1,"atime");
  12 is($stat[9],2,"mtime");
  13 unlink("file");