[scpubgit/Test-Harness-Selenium.git] / t / vnc.t

#!/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;
Commit	Line	Data
889ee473	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
	4
	5	use lib 'lib';
	6	use Test::Harness::Selenium;
	7	use Test::More;
	8
	9	my $s = Test::Harness::Selenium->new({
	10	host => 'localhost',
	11	port => $< + 60_000,
	12	browser_url => 'http://www.google.com',
	13	browser => shift,
	14	xvnc => ':0',
	15	});
	16	$s->test_directory(shift);
	17	done_testing;