comparison Roary/t/Bio/Roary/External/Makeblastdb.t @ 0:c47a5f61bc9f draft

Uploaded
author dereeper
date Fri, 14 May 2021 20:27:06 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:c47a5f61bc9f
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();