Mercurial > repos > dereeper > roary_plots
diff Roary/t/Bio/Roary/External/Makeblastdb.t @ 0:c47a5f61bc9f draft
Uploaded
author | dereeper |
---|---|
date | Fri, 14 May 2021 20:27:06 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Roary/t/Bio/Roary/External/Makeblastdb.t Fri May 14 20:27:06 2021 +0000 @@ -0,0 +1,32 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Data::Dumper; +use Cwd; + +BEGIN { unshift( @INC, './lib' ) } + +BEGIN { + use Test::Most; + use_ok('Bio::Roary::External::Makeblastdb'); +} + +my $cwd = getcwd(); +my $obj; + +ok($obj = Bio::Roary::External::Makeblastdb->new( + fasta_file => 't/data/some_fasta_file.fa', + exec => $cwd.'/t/bin/dummy_makeblastdb', + mask_data => 'masking_data_file' +),'initialise object'); + +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'); +ok($obj->run(), 'run dummy command'); + +unlink("output_contigs.phr"); +unlink("output_contigs.pin"); +unlink("output_contigs.psq"); + +1; + +done_testing();