1 files changed, 44 insertions, 0 deletions
diff --git a/t/inode.t b/t/inode.t
new file mode 100644
index 0000000..c477baf
--- /dev/null
+++ b/t/inode.t
@@ -0,0 +1,44 @@
+#!/usr/local/bin/perl -w
+
+use strict ;
+
+use File::Slurp ;
+
+use Carp ;
+use Socket ;
+use Symbol ;
+use Test::More ;
+
+BEGIN { 
+	if( $^O =~ '32' ) {
+		plan skip_all => 'skip inode test on windows';
+		exit ;
+	}
+
+	plan tests => 2 ;
+}
+
+my $data = <<TEXT ;
+line 1
+more text
+TEXT
+
+my $file = 'inode' ;
+
+write_file( $file, $data ) ;
+my $inode_num = (stat $file)[1] ;
+write_file( $file, $data ) ;
+my $inode_num2 = (stat $file)[1] ;
+
+#print "I1 $inode_num I2 $inode_num2\n" ;
+
+ok( $inode_num == $inode_num2, 'same inode' ) ;
+
+write_file( $file, {atomic => 1}, $data ) ;
+$inode_num2 = (stat $file)[1] ;
+
+#print "I1 $inode_num I2 $inode_num2\n" ;
+
+ok( $inode_num != $inode_num2, 'different inode' ) ;
+
+unlink $file ;