#!/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 ( ! defined $phantomjs or !-x $phantomjs ) {
plan skip_all =>
"phantomjs not found, please set ND_PHANTOMJS or install phantomjs to the default location";
}
else {
exec( $phantomjs, "$Bin/js/run_qunit.js", "$Bin/html/portsort.html" );
}