# $Id: 100simple.t,v 4425eaad21c8 2012/06/13 04:02:11 gary $
use warnings;
use strict;
use Test::More;
use Test::WWW::Selenium::HTML;
use IO::Socket::INET;
use Test::WWW::Selenium;
use Time::HiRes qw(usleep);
use lib './t/lib';
use TestDaemon;
if (not TestDaemon::selenium_server_exists()) {
plan skip_all => "Unable to test, could not find Selenium Server.";
}
plan tests => 13;
my $port = TestDaemon::get_port();
my $pid = fork();
if (not $pid) {
close STDIN;
close STDOUT;
close STDERR;
TestDaemon::start($port);
} else {
my $sel =
Test::WWW::Selenium->new(
host => "localhost",
port => 4444,
browser => "*firefox",
browser_url => "http://localhost:$port/"
);
my $asc = Test::WWW::Selenium::HTML->new($sel);
eval { $asc->run(path => "./t/htmltests/simple.html"); };
my $error = $@;
diag $error if $error;
$sel = undef;
$asc = undef;
my $ua = LWP::UserAgent->new();
$ua->get("http://localhost:$port/shutdown.html");
kill 15, $pid;
if ($error) {
ok(0, "Failed to complete tests");
}
}
1;
__END__
Copyright 2012 APNIC Pty Ltd.
This library is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
The full text of the license can be found in the LICENSE file included
with this module.