#!perl
# $AFresh1: local_server.t,v 1.14 2010/07/17 12:12:32 andrew Exp $
use Test::More;
use strict;
use warnings;
use Net::OpenAMD;
BEGIN {
use FindBin;
use lib "$FindBin::Bin";
use lib "$FindBin::Bin/../../mojo/lib";
eval "use Test::Mojo::Server";
if ($@) {
plan skip_all =>
"Test::Mojo::Server required for testing local server";
}
elsif ( $] < 5.01 ) {
plan skip_all => 'test_server.pl requires perl 5.10 or higher';
}
else {
plan tests => 18;
}
require 'network_tests.t';
}
my $server = Test::Mojo::Server->new();
$server->executable('test_server.pl');
my $path = $server->find_executable_ok('executable found');
my $port = $server->start_daemon_ok('daemon test');
$server->server_ok('server running');
my $amd = Net::OpenAMD->new(
{ base_uri => 'http://127.0.0.1:' . $port . '/api/', } );
NetworkTests::run_tests($amd);
$server->stop_server_ok('server stopped');
#done_testing();