package
RandomFileCheckOption;
use strict;
use constant FILES_FOR_RE => (qr/\d$/ => [ SIMPLE_FILES_WITH_NR ],
qr/\./ => [ SIMPLE_FILES_WITH_DOT ]);
use constant WRONG_CHECK_PARAMS => (undef, '', '/./', {}, [], 0);
sub check_standard_case : Test(4) {
my $self = shift;
my %files = FILES_FOR_RE;
foreach my $re (keys %files) {
foreach my $check (qr/$re/, sub {/$re/}) {
my @args = (-dir => SIMPLE_DIR, -check => $check);
$self->expected_files_found_ok($files{$re},
[@args],
"Used RE $re as " . ref $check);
}
}
}
sub wrong_check_params : Test(6) {
my $self = shift;
foreach (WRONG_CHECK_PARAMS) {
my @args = (-dir => SIMPLE_DIR, -check => $_);
dies_ok( sub {$self->random_file(@args)},
"expected to die with Args " . Dumper(\@args) );
}
}
1;