vncserver is a wrapper script for starting xnvc; use that. Add test exercising

the xvnc feature.

diff --git a/lib/Test/Harness/Selenium.pm b/lib/Test/Harness/Selenium.pm
index 51d099f..f57419d 100644 (file)
--- a/lib/Test/Harness/Selenium.pm
+++ b/lib/Test/Harness/Selenium.pm
@@ -41,7 +41,7 @@ sub new {
       $self->{xvnc_pid} = $xvnc_pid;
     }
     else {
-      exec("Xvnc", $self->{xvnc});
+      exec("vncserver", $self->{xvnc});
     }
   }
   bless $self, $class;

diff --git a/t/vnc.t b/t/vnc.t
new file mode 100644 (file)
index 0000000..c333286
--- /dev/null
+++ b/t/vnc.t
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use lib 'lib';
+use Test::Harness::Selenium;
+use Test::More;
+
+my $s = Test::Harness::Selenium->new({
+    host => 'localhost',
+    port => $< + 60_000,
+    browser_url => 'http://www.google.com',
+    browser => shift,
+    xvnc => ':0',
+});
+$s->test_directory(shift);
+done_testing;