|
0
|
1 #!/usr/bin/env perl
|
|
|
2 use Moose;
|
|
|
3 use Data::Dumper;
|
|
|
4 use Cwd;
|
|
|
5
|
|
|
6 BEGIN { unshift( @INC, './lib' ) }
|
|
|
7 BEGIN { unshift( @INC, './t/lib' ) }
|
|
|
8 with 'TestHelper';
|
|
|
9
|
|
|
10 BEGIN {
|
|
|
11 use Test::Most;
|
|
|
12 use_ok('Bio::Roary::CommandLine::ParallelAllAgainstAllBlastp');
|
|
|
13 }
|
|
|
14 my $script_name = 'Bio::Roary::CommandLine::ParallelAllAgainstAllBlastp';
|
|
|
15 my $cwd = getcwd();
|
|
|
16
|
|
|
17 system('touch empty_file');
|
|
|
18 my %scripts_and_expected_files = (
|
|
|
19 '-m '.$cwd.'/t/bin/dummy_makeblastdb -b '.$cwd.'/t/bin/dummy_blastp -j Local t/data/example_1.faa' =>
|
|
|
20 [ 'blast_results', 't/data/empty_file' ],
|
|
|
21 '-o different_output_filename -m '.$cwd.'/t/bin/dummy_makeblastdb -b '.$cwd.'/t/bin/dummy_blastp -j Local t/data/example_1.faa' =>
|
|
|
22 [ 'different_output_filename', 't/data/empty_file' ],
|
|
|
23 '-h' =>
|
|
|
24 [ 'empty_file', 't/data/empty_file' ],
|
|
|
25 );
|
|
|
26
|
|
|
27 mock_execute_script_and_check_output( $script_name, \%scripts_and_expected_files );
|
|
|
28
|
|
|
29 done_testing(); |
