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

#!/usr/bin/perl
use strict;
use warnings;

use lib 'lib';
use Test::Harness::Selenium;
use Test::More;

my $browser = shift;
my $s = Test::Harness::Selenium->new({
    host => 'localhost',
    port => $< + 60_000,
    browser_url => 'http://127.0.0.1:3000',
    browser => $browser,
});
$s->start_server;
$s->run_tests_for('t/corpus/thseleniumpass.html');
$s->stop_server;
done_testing;
Commit	Line	Data
cf46ca55	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 $browser = shift;
	10	my $s = Test::Harness::Selenium->new({
	11	host => 'localhost',
	12	port => $< + 60_000,
	13	browser_url => 'http://127.0.0.1:3000',
	14	browser => $browser,
	15	});
	16	$s->start_server;
	17	$s->run_tests_for('t/corpus/thseleniumpass.html');
	18	$s->stop_server;
	19	done_testing;