Mercurial > repos > dereeper > roary_plots
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(); |