1 ##!/usr/local/bin/perl -w
9 use_ok( 'File::Slurp', ) ;
14 my $file = 'missing/file' ;
20 'croak' => \&test_croak,
21 'carp' => \&test_carp,
22 'quiet' => \&test_quiet,
25 while( my( $mode, $sub ) = each %modes ) {
27 $sub->( 'read_file', \&read_file, $file, err_mode => $mode ) ;
28 $sub->( 'write_file', \&write_file, $file,
29 { err_mode => $mode }, 'junk' ) ;
30 $sub->( 'read_dir', \&read_dir, $file, err_mode => $mode ) ;
36 my ( $name, $sub, @args ) = @_ ;
42 ok( $@, "$name can croak" ) ;
47 my ( $name, $sub, @args ) = @_ ;
49 local $SIG{__WARN__} = sub { ok( 1, "$name can carp" ) } ;
56 my ( $name, $sub, @args ) = @_ ;
58 local $SIG{__WARN__} = sub { ok( 0, "$name can be quiet" ) } ;
64 ok( !$@, "$name can be quiet" ) ;