1 #!/usr/local/bin/perl -w
13 plan skip_all => 'skip inode test on windows';
20 use_ok( 'File::Slurp', ) ;
30 write_file( $file, $data ) ;
31 my $inode_num = (stat $file)[1] ;
32 write_file( $file, $data ) ;
33 my $inode_num2 = (stat $file)[1] ;
35 #print "I1 $inode_num I2 $inode_num2\n" ;
37 ok( $inode_num == $inode_num2, 'same inode' ) ;
39 write_file( $file, {atomic => 1}, $data ) ;
40 $inode_num2 = (stat $file)[1] ;
42 #print "I1 $inode_num I2 $inode_num2\n" ;
44 ok( $inode_num != $inode_num2, 'different inode' ) ;