From: Chris Nehren <apeiron@cpan.org>
Date: Fri, 14 Jan 2011 13:22:50 +0000 (-0500)
Subject: vncserver is a wrapper script for starting xnvc; use that. Add test exercising
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FTest-Harness-Selenium.git;a=commitdiff_plain;h=889ee4732e509ce6b2e5612aac7a061fc749f482

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
--- 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
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;