t/inode.t

   1 #!/usr/local/bin/perl -w
   2
   3 use strict ;
   4
   5 use File::Slurp ;
   6
   7 use Carp ;
   8 use Socket ;
   9 use Symbol ;
  10 use Test::More ;
  11
  12 BEGIN {
  13         if( $^O =~ '32' ) {
  14                 plan skip_all => 'skip inode test on windows';
  15                 exit ;
  16         }
  17
  18         plan tests => 2 ;
  19 }
  20
  21 my $data = <<TEXT ;
  22 line 1
  23 more text
  24 TEXT
  25
  26 my $file = 'inode' ;
  27
  28 write_file( $file, $data ) ;
  29 my $inode_num = (stat $file)[1] ;
  30 write_file( $file, $data ) ;
  31 my $inode_num2 = (stat $file)[1] ;
  32
  33 #print "I1 $inode_num I2 $inode_num2\n" ;
  34
  35 ok( $inode_num == $inode_num2, 'same inode' ) ;
  36
  37 write_file( $file, {atomic => 1}, $data ) ;
  38 $inode_num2 = (stat $file)[1] ;
  39
  40 #print "I1 $inode_num I2 $inode_num2\n" ;
  41
  42 ok( $inode_num != $inode_num2, 'different inode' ) ;
  43
  44 unlink $file ;