update

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

diff --git a/t/error.t b/t/error.t
deleted file mode 100644 (file)
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 ;
-