20 lines
431 B
Perl
Executable File
20 lines
431 B
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
use Env::Path;
|
|
use FindBin qw( $Bin );
|
|
|
|
my @phantomjs = Env::Path->PATH->Whence('phantomjs');
|
|
my $phantomjs = scalar @phantomjs ? $phantomjs[0] : $ENV{ND_PHANTOMJS};
|
|
|
|
if (! -x $phantomjs)
|
|
{
|
|
plan skip_all => "phantomjs not found, please set ND_PHANTOMJS or install phantomjs to the default location";
|
|
}
|
|
else
|
|
{
|
|
exec ($phantomjs, 'run_qunit.js', 'sort-port.html');
|
|
}
|