update

[urisagit/Perl-Docs.git] / t / inode.t

diff --git a/t/inode.t b/t/inode.t
deleted file mode 100644 (file)
index 377b32c..0000000
--- a/t/inode.t
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/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 ;
-       }
-       else {
-               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 ;