Commit | Line | Data |
635c7876 |
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 ; |