3 new versions checked in finally.

[urisagit/File-Slurp.git] / t / inode.t

#!/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 ;