1#!/usr/bin/env perl 2 3use strict; 4use warnings; 5 6BEGIN { $ENV{DANCER_ENVDIR} = '/dev/null'; } 7 8use Test::More; 9use Env::Path; 10use FindBin qw( $Bin ); 11 12my $phantomjs = $ENV{ND_PHANTOMJS}; 13 14if ( !defined $phantomjs or !-x $phantomjs ) { 15 plan skip_all => 16 "phantomjs not found, please set ND_PHANTOMJS to the location of the phantomjs executable"; 17} 18else { 19 exec( $phantomjs, "$Bin/js/run_qunit.js", "$Bin/html/portsort.html" ); 20} 21