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
  13 BEGIN{
  14
  15         if( $^O =~ '32' ) {
  16                 plan skip_all => 'skip inode test on windows';
  17                 exit ;
  18         }
  19         else {
  20                 plan tests => 2 ;
  21         }
  22 }
  23
  24 my $data = <<TEXT ;
  25 line 1
  26 more text
  27 TEXT
  28
  29 my $file = 'inode' ;
  30
  31 write_file( $file, $data ) ;
  32 my $inode_num = (stat $file)[1] ;
  33 write_file( $file, $data ) ;
  34 my $inode_num2 = (stat $file)[1] ;
  35
  36 #print "I1 $inode_num I2 $inode_num2\n" ;
  37
  38 ok( $inode_num == $inode_num2, 'same inode' ) ;
  39
  40 write_file( $file, {atomic => 1}, $data ) ;
  41 $inode_num2 = (stat $file)[1] ;
  42
  43 #print "I1 $inode_num I2 $inode_num2\n" ;
  44
  45 ok( $inode_num != $inode_num2, 'different inode' ) ;
  46
  47 unlink $file ;