annotate Roary/t/00_requires_external.t @ 0:c47a5f61bc9f draft

Uploaded
author dereeper
date Fri, 14 May 2021 20:27:06 +0000
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
1 #!/usr/bin/env perl
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
2
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
3 use Test::Most;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
4 use FindBin;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
5 plan tests => 8;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
6 bail_on_fail if 0;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
7 use Env::Path 'PATH';
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
8
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
9
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
10 my $OPSYS = $^O;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
11 my $BINDIR = "$FindBin::RealBin/../binaries/$OPSYS";
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
12
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
13 for my $dir ($BINDIR, $FindBin::RealBin) {
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
14 if (-d $dir) {
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
15 $ENV{PATH} .= ":$dir";
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
16 }
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
17 }
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
18
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
19 ok(scalar PATH->Whence($_), "$_ in PATH") for qw(blastp makeblastdb mcl mcxdeblast bedtools prank parallel mafft);
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
20