X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ferror.t;h=ff5a6d7b2032ecff325f4f8db2c2a3aa3b44d756;hb=8ed110f93b8011f585c0c4ee23234d11668ac944;hp=d4845c0257cd1eb162dec9767c6f7bfa63bb54d9;hpb=997098525898485838522aa547a080189cb7a313;p=urisagit%2FPerl-Docs.git

diff --git a/t/error.t b/t/error.t
index d4845c0..ff5a6d7 100644
--- a/t/error.t
+++ b/t/error.t
@@ -1,11 +1,10 @@
 ##!/usr/local/bin/perl -w
 
 use lib qw(t) ;
-
 use strict ;
-use File::Slurp qw( :all ) ;
+use driver ;
 
-use common ;
+use File::Slurp qw( :all ) ;
 
 my $file_name = 'test_file' ;
 my $dir_name = 'test_dir' ;
@@ -18,6 +17,8 @@ my $tests = [
 		args	=> [ $file_name ],
 
 		error => qr/open/,
+
+		skip	=> 1,
 	},
 
 	{
@@ -36,6 +37,58 @@ my $tests = [
 		},
 
 		error => qr/open/,
+		skip	=> 1,
+	},
+
+	{
+		name	=> 'write_file syswrite error',
+		sub	=> \&write_file,
+		args	=> [ $file_name, '' ],
+		override	=> 'syswrite',
+
+		posttest => sub {
+			unlink( $file_name ) ;
+		},
+
+
+		error => qr/write/,
+		skip	=> 1,
+	},
+
+	{
+		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/,
 	},
 
 	{
@@ -56,19 +109,20 @@ my $tests = [
 		},
 
 		error => qr/rename/,
+		skip	=> 1,
 	},
 
 	{
-		name	=> 'read_dir open error',
+		name	=> 'read_dir opendir error',
 		sub	=> \&read_dir,
 		args	=> [ $dir_name ],
 
 		error => qr/open/,
+		skip	=> 1,
 	},
-
 ] ;
 
-tester( $tests ) ;
+test_driver( $tests ) ;
 
 exit ;