X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=urisagit%2FPerl-Docs.git;a=blobdiff_plain;f=t%2Ferror.t;fp=t%2Ferror.t;h=0000000000000000000000000000000000000000;hp=a241ee514a8497436e7e1876dc6d40d8afdc1383;hb=47f1263f57592cfd836dee694c227575bc9cde46;hpb=cf83821d2b095a464d353ea98e41bfa8b262caef

diff --git a/t/error.t b/t/error.t
deleted file mode 100644
index a241ee5..0000000
--- a/t/error.t
+++ /dev/null
@@ -1,125 +0,0 @@
-##!/usr/local/bin/perl -w
-
-use lib qw(t) ;
-use strict ;
-use Test::More ;
-
-BEGIN {
-	plan skip_all => "these tests need Perl 5.5" if $] < 5.005 ;
-}
-
-use TestDriver ;
-use File::Slurp qw( :all prepend_file edit_file ) ;
-
-my $is_win32 = $^O =~ /cygwin|win32/i ;
-
-my $file_name = 'test_file' ;
-my $dir_name = 'test_dir' ;
-
-my $tests = [
-	{
-		name	=> 'read_file open error',
-		sub	=> \&read_file,
-		args	=> [ $file_name ],
-		error	=> qr/open/,
-	},
-	{
-		name	=> 'write_file open error',
-		sub	=> \&write_file,
- 		args	=> [ $file_name, '' ],
- 		override => 'sysopen',
-		error	=> qr/open/,
-	},
-	{
-		name	=> 'write_file syswrite error',
-		sub	=> \&write_file,
-		args	=> [ $file_name, '' ],
-		override => 'syswrite',
-		posttest => sub { unlink( $file_name ) },
-		error	=> qr/write/,
-	},
-	{
-		name	=> 'read_file small sysread error',
-		sub	=> \&read_file,
-		args	=> [ $file_name ],
-		override => 'sysread',
-		pretest => sub { write_file( $file_name, '' ) },
-		posttest => sub { unlink( $file_name ) },
-		error	=> qr/read/,
-	},
-	{
-		name	=> 'read_file loop sysread error',
-		sub	=> \&read_file,
-		args	=> [ $file_name ],
-		override => 'sysread',
-		pretest => sub { write_file( $file_name, 'x' x 100_000 ) },
-		posttest => sub { unlink( $file_name ) },
-		error	=> qr/read/,
-	},
-	{
-		name	=> 'atomic rename error',
-# this test is meaningless on Win32
-		skip	=> $is_win32,
-		sub	=> \&write_file,
-		args	=> [ $file_name, { atomic => 1 }, '' ],
-		override => 'rename',
-		posttest => sub { "$file_name.$$" },
-		error	=> qr/rename/,
-	},
-	{
-		name	=> 'read_dir opendir error',
-		sub	=> \&read_dir,
-		args	=> [ $dir_name ],
-		error	=> qr/open/,
-	},
-	{
-		name	=> 'prepend_file read error',
-		sub	=> \&prepend_file,
-		args	=> [ $file_name ],
-		error	=> qr/read_file/,
-	},
-	{
-		name	=> 'prepend_file write error',
-		sub	=> \&prepend_file,
-		pretest	=> sub { write_file( $file_name, '' ) },
-		args	=> [ $file_name, '' ],
-		override => 'syswrite',
-		error	=> qr/write_file/,
-		posttest => sub { unlink $file_name, "$file_name.$$" },
-	},
-	{
-		name	=> 'edit_file read error',
-		sub	=> \&edit_file,
-		args	=> [ sub{}, $file_name ],
-		error	=> qr/read_file/,
-	},
-	{
-		name	=> 'edit_file write error',
-		sub	=> \&edit_file,
-		pretest	=> sub { write_file( $file_name, '' ) },
-		args	=> [ sub{}, $file_name ],
-		override => 'syswrite',
-		error	=> qr/write_file/,
-		posttest => sub { unlink $file_name, "$file_name.$$" },
-	},
-	{
-		name	=> 'edit_file_lines read error',
-		sub	=> \&edit_file_lines,
-		args	=> [ sub{}, $file_name ],
-		error	=> qr/read_file/,
-	},
-	{
-		name	=> 'edit_file_lines write error',
-		sub	=> \&edit_file_lines,
-		pretest	=> sub { write_file( $file_name, '' ) },
-		args	=> [ sub{}, $file_name ],
-		override => 'syswrite',
-		error	=> qr/write_file/,
-		posttest => sub { unlink $file_name, "$file_name.$$" },
-	},
-] ;
-
-test_driver( $tests ) ;
-
-exit ;
-