zimbardo/t/90-frey-server.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 6;
use lib 'lib';

BEGIN {
        use_ok('Frey::Test');
}

eval "use Test::WWW::Mechanize";
if($@) {
        plan skip_all => 'Test::WWW::Mechanize not installed';
        exit;
}

ok( my $kid_out = Frey::Test->start_server, 'start_server' );
ok( my $server = Frey::Test->get_server( $kid_out ), 'get_server' );

my $mech = Test::WWW::Mechanize->new;
$mech->get_ok( $server );

$mech->content_contains("Frey");

#$mech->field( name => $name );
#$mech->field( favorite => $thing1, 1 );
#$mech->field( favorite => $thing2, 2 );
#$mech->field( favorite => $thing3, 3 );
#$mech->submit;

ok( Frey::Test->stop_server, 'stop_server' );

1	dpavlin	103	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			use Test::More tests => 6;
6			use lib 'lib';
7
8			BEGIN {
9			use_ok('Frey::Test');
10			}
11
12			eval "use Test::WWW::Mechanize";
13			if($@) {
14			plan skip_all => 'Test::WWW::Mechanize not installed';
15			exit;
16			}
17
18			ok( my $kid_out = Frey::Test->start_server, 'start_server' );
19			ok( my $server = Frey::Test->get_server( $kid_out ), 'get_server' );
20
21			my $mech = Test::WWW::Mechanize->new;
22			$mech->get_ok( $server );
23
24			$mech->content_contains("Frey");
25
26			#$mech->field( name => $name );
27			#$mech->field( favorite => $thing1, 1 );
28			#$mech->field( favorite => $thing2, 2 );
29			#$mech->field( favorite => $thing3, 3 );
30			#$mech->submit;
31
32			ok( Frey::Test->stop_server, 'stop_server' );
33