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
26
27
28
29
|
#!/usr/bin/env perl
use Moose;
use Data::Dumper;
use Cwd;
BEGIN { unshift( @INC, './lib' ) }
BEGIN { unshift( @INC, './t/lib' ) }
with 'TestHelper';
BEGIN {
use Test::Most;
use_ok('Bio::Roary::CommandLine::ParallelAllAgainstAllBlastp');
}
my $script_name = 'Bio::Roary::CommandLine::ParallelAllAgainstAllBlastp';
my $cwd = getcwd();
system('touch empty_file');
my %scripts_and_expected_files = (
'-m '.$cwd.'/t/bin/dummy_makeblastdb -b '.$cwd.'/t/bin/dummy_blastp -j Local t/data/example_1.faa' =>
[ 'blast_results', 't/data/empty_file' ],
'-o different_output_filename -m '.$cwd.'/t/bin/dummy_makeblastdb -b '.$cwd.'/t/bin/dummy_blastp -j Local t/data/example_1.faa' =>
[ 'different_output_filename', 't/data/empty_file' ],
'-h' =>
[ 'empty_file', 't/data/empty_file' ],
);
mock_execute_script_and_check_output( $script_name, \%scripts_and_expected_files );
done_testing();
|
