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