#!perl
# $AFresh1: local_server.t,v 1.3 2010/06/26 14:14:36 andrew Exp $
use Test::More;# tests => 75;
use strict;
use warnings;
#use File::Temp qw/ tempdir /;
#use File::Copy qw/ cp /;
#use File::Spec;
my $have_test_json = 1;
BEGIN {
use FindBin;
use lib "$FindBin::Bin/../../../mojo/lib";
eval "use Test::Mojo::Server";
plan skip_all => "Test::Mojo::Server required for testing local server" if $@;
}
my $server = Test::Mojo::Server->new();
$server->executable('test_server.pl');
#$server = $server->command('perl t/test_server.pl');
my $path = $server->find_executable_ok('executable found');
#print "PATH: $path\n";
#my $port = $server->generate_port_ok('port test');
my $port = $server->start_daemon_ok('daemon test');
print "Port: $port\n";
$server->server_ok('server running');
my $pid = $server->pid;
print "PID: $pid\n";
$server->stop_server_ok('server stopped');
done_testing();
exit;