diff Roary/t/Bio/Roary/CommandLine/ParallelAllAgainstAllBlastp.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/CommandLine/ParallelAllAgainstAllBlastp.t	Fri May 14 20:27:06 2021 +0000
@@ -0,0 +1,29 @@
+#!/usr/bin/env perl
+use Moose;
+use Data::Dumper;
+use Cwd;
+
+BEGIN { unshift( @INC, './lib' ) }
+BEGIN { unshift( @INC, './t/lib' ) }
+with 'TestHelper';
+
+BEGIN {
+    use Test::Most;
+    use_ok('Bio::Roary::CommandLine::ParallelAllAgainstAllBlastp');
+}
+my $script_name = 'Bio::Roary::CommandLine::ParallelAllAgainstAllBlastp';
+my $cwd = getcwd();
+
+system('touch empty_file');
+my %scripts_and_expected_files = (
+    '-m '.$cwd.'/t/bin/dummy_makeblastdb -b '.$cwd.'/t/bin/dummy_blastp -j Local t/data/example_1.faa' =>
+      [ 'blast_results', 't/data/empty_file' ],
+   '-o different_output_filename -m '.$cwd.'/t/bin/dummy_makeblastdb -b '.$cwd.'/t/bin/dummy_blastp -j Local t/data/example_1.faa' =>
+      [ 'different_output_filename', 't/data/empty_file'  ],
+      '-h' =>
+        [ 'empty_file', 't/data/empty_file' ],
+);
+
+mock_execute_script_and_check_output( $script_name, \%scripts_and_expected_files );
+
+done_testing();
\ No newline at end of file