Unit tests for netdisco-util.js

Netdisco/t/11-netdisco-util.t

@@ -0,0 +1,18 @@
+#!/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, "$Bin/js/run_qunit.js", "$Bin/html/netdisco-util.html" );
+}