t/catapp.t

   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     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 );
  21 $s->test_directory('t/corpus/');
  22 done_testing;