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