0
|
1 #!/usr/bin/env perl
|
|
2 use strict;
|
|
3 use warnings;
|
|
4 use Data::Dumper;
|
|
5 use Cwd;
|
|
6
|
|
7 BEGIN { unshift( @INC, './lib' ) }
|
|
8
|
|
9 BEGIN {
|
|
10 use Test::Most;
|
|
11 use_ok('Bio::Roary::External::Makeblastdb');
|
|
12 }
|
|
13
|
|
14 my $cwd = getcwd();
|
|
15 my $obj;
|
|
16
|
|
17 ok($obj = Bio::Roary::External::Makeblastdb->new(
|
|
18 fasta_file => 't/data/some_fasta_file.fa',
|
|
19 exec => $cwd.'/t/bin/dummy_makeblastdb',
|
|
20 mask_data => 'masking_data_file'
|
|
21 ),'initialise object');
|
|
22
|
|
23 is($obj->_command_to_run, $cwd.'/t/bin/dummy_makeblastdb -in t/data/some_fasta_file.fa -dbtype prot -out '.$obj->_working_directory->dirname().'/output_contigs -logfile /dev/null', 'Command constructed as expected');
|
|
24 ok($obj->run(), 'run dummy command');
|
|
25
|
|
26 unlink("output_contigs.phr");
|
|
27 unlink("output_contigs.pin");
|
|
28 unlink("output_contigs.psq");
|
|
29
|
|
30 1;
|
|
31
|
|
32 done_testing();
|