diff Roary/t/Bio/Roary/External/CheckTools.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/CheckTools.t	Fri May 14 20:27:06 2021 +0000
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Data::Dumper;
+use Cwd;
+use Test::Output;
+
+BEGIN { unshift( @INC, './lib' ) }
+
+BEGIN {
+    use Test::Most;
+    use_ok('Bio::Roary::External::CheckTools');
+}
+ok( my $check_tools = Bio::Roary::External::CheckTools->new(), 'initialise checking for tools' );
+for my $tool ( ( 'parallel', 'blastp', 'makeblastdb', 'mcl', 'bedtools', 'prank', 'mafft', 'grep', 'sed', 'awk', ) ) {
+    my $pattern = "Looking for '$tool' - found ";
+    stderr_like { $check_tools->check_tool($tool); } qr/$pattern/, "Check for $tool";
+}
+
+stderr_like { $check_tools->check_all_tools; } qr/Looking for /, "Check for all tools";
+1;
+
+done_testing();