t/inode.t

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