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