1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
use strict;
use warnings
FATAL => qw( all ),
NONFATAL => qw( deprecated exec internal malloc newline once portable redefine recursion uninitialized );
use Test::Expander -tempdir => {};
use Test::Files::Constants qw( $DIRECTORY_OPTIONS $FMT_SUB_FAILED );
my $mockThis = mock $CLASS => (
override => [
_show_failure => sub {},
_show_result => sub { !@{ shift->diag } },
]
);
my $sub = sub { path( shift )->basename eq 'GOOD' };
path( $TEMP_DIR )->child( 'SUBDIR' )->mkdir;
path( $TEMP_DIR )->child( 'BAD' )->touch;
path( $TEMP_DIR )->child( 'GOOD' )->touch;
plan( 2 );
ok( $METHOD_REF->( $TEMP_DIR, $sub ), 'valid arguments' );
ok( !$METHOD_REF->( $TEMP_DIR, '' ), 'invalid arguments' );
|
