update

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

diff --git a/t/error_mode.t b/t/error_mode.t
deleted file mode 100644 (file)
index 915c184..0000000
--- a/t/error_mode.t
+++ /dev/null
@@ -1,59 +0,0 @@
-##!/usr/local/bin/perl -w
-
-use strict ;
-use File::Slurp ;
-
-use Carp ;
-use Test::More tests => 9 ;
-
-my $file = 'missing/file' ;
-#unlink $file ;
-
-
-my %modes = (
-       'croak' => \&test_croak,
-       'carp' => \&test_carp,
-       'quiet' => \&test_quiet,
-) ;
-
-while( my( $mode, $sub ) = each %modes ) {
-
-       $sub->( 'read_file', \&read_file, $file, err_mode => $mode ) ;
-       $sub->( 'write_file', \&write_file, $file,
-                                       { err_mode => $mode }, 'junk' ) ;
-       $sub->( 'read_dir', \&read_dir, $file, err_mode => $mode ) ;
-}
-
-
-sub test_croak {
-
-       my ( $name, $sub, @args ) = @_ ;
-
-       eval {
-               $sub->( @args ) ;
-       } ;
-
-       ok( $@, "$name can croak" ) ;
-}
-
-sub test_carp {
-
-       my ( $name, $sub, @args ) = @_ ;
-
-       local $SIG{__WARN__} = sub { ok( 1, "$name can carp" ) } ;
-
-       $sub->( @args ) ;
-}
-
-sub test_quiet {
-
-       my ( $name, $sub, @args ) = @_ ;
-
-       local $SIG{__WARN__} = sub { ok( 0, "$name can be quiet" ) } ;
-
-       eval {
-               $sub->( @args ) ;
-       } ;
-
-       ok( !$@, "$name can be quiet" ) ;
-}