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