trunk/t/90-frey-server.t

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

use Test::More tests => 8;
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->get_ok( '/ob/Strix::User' );
$mech->content_contains("Email");

#$mech->field( email => 'test@example.com' );   # FIXME we mungle field names
#$mech->submit;

#$mech->content_contains('test@example.com');

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

1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4
5	use Test::More tests => 8;
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->get_ok( '/ob/Strix::User' );
27	$mech->content_contains("Email");
28
29	#$mech->field( email => 'test@example.com' ); # FIXME we mungle field names
30	#$mech->submit;
31
32	#$mech->content_contains('test@example.com');
33
34	ok( Frey::Test->stop_server, 'stop_server' );
35