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; |
0f44efef |
10 | my $s = Test::Harness::Selenium->new( |
11 | selenium_rc => { |
12 | host => '10.0.0.8', |
13 | port => $< + 6900, |
14 | start => 1, |
15 | xvnc_display => 1, |
16 | }, |
17 | app_base => 'http://10.0.0.5:3000', |
18 | app_server_cmd => 'examples/THSelenium-Test/script/thselenium_test_server.pl', |
19 | browser => '*firefox', |
20 | ); |
e5f319fc |
21 | eval { $s->test_directory('t/corpus/') }; |
22 | $s->done; |
cf46ca55 |
23 | done_testing; |