Commit | Line | Data |
635c7876 |
1 | #!/usr/local/bin/perl -w |
2 | |
3 | use strict ; |
4 | |
99709852 |
5 | use File::Slurp ; |
6 | |
635c7876 |
7 | use Carp ; |
8 | use Socket ; |
9 | use Symbol ; |
10 | use Test::More ; |
11 | |
99709852 |
12 | |
635c7876 |
13 | BEGIN{ |
14 | |
15 | if( $^O =~ '32' ) { |
16 | plan skip_all => 'skip inode test on windows'; |
17 | exit ; |
18 | } |
19 | else { |
99709852 |
20 | plan tests => 2 ; |
635c7876 |
21 | } |
635c7876 |
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 ; |