view Roary/t/00_requires_external.t @ 1:997f4f276c1c draft

Uploaded
author dereeper
date Fri, 14 May 2021 20:42:33 +0000
parents c47a5f61bc9f
children
line wrap: on
line source

#!/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);