--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Roary/t/00_requires_external.t	Fri May 14 20:27:06 2021 +0000
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+
+use Test::Most;
+use FindBin;
+plan tests => 8;
+bail_on_fail if 0;
+use Env::Path 'PATH';
+
+
+my $OPSYS = $^O;
+my $BINDIR = "$FindBin::RealBin/../binaries/$OPSYS";
+
+for my $dir ($BINDIR, $FindBin::RealBin) {
+    if (-d $dir) {
+      $ENV{PATH} .= ":$dir";
+     }
+}
+
+ok(scalar PATH->Whence($_), "$_ in PATH") for qw(blastp makeblastdb mcl mcxdeblast bedtools prank parallel mafft);
+