HOPE/Net-OpenAMD/t/local_server.t - diff

Return to local_server.t CVS log

Up to [local] / HOPE / Net-OpenAMD / t

version 1.6, 2010/06/27 04:45:07

version 1.12, 2010/07/13 03:27:06

Line 1

#!perl

# $AFresh1: local_server.t,v 1.5 2010/06/27 00:52:33 andrew Exp $

# $AFresh1: local_server.t,v 1.11 2010/07/01 17:59:55 andrew Exp $

use Test::More; # tests => 75;

use Test::More;

use strict;

use warnings;

Line 13

use lib "$FindBin::Bin/../../mojo/lib";

eval "use Test::Mojo::Server";

plan skip_all => "Test::Mojo::Server required for testing local server"

if ($@) {

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 => 17;

}

require 'network_tests.t';

}

Line 26

Line 34

$server->server_ok('server running');

my $amd = Net::OpenAMD->new(

{ base_url => 'http://127.0.0.1:' . $port . '/api/', } );

{ base_uri => 'http://127.0.0.1:' . $port . '/api/', } );

NetworkTests::run_tests($amd);

$server->stop_server_ok('server stopped');

done_testing();

#done_testing();