zimbardo/t/90-frey-server.t

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

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

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


ok( my $url = Frey::Test->start_server, 'start_server' );
diag $url;

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

$mech->content_contains("Frey");

$mech->get_ok( '/ob/Strix::User' );
$mech->content_contains("results");

$mech->get_ok( '/~/Frey::Introspect' );
$mech->content_contains("introspect.css");

#diag $mech->content;

#$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	dpavlin	103	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5	dpavlin	216	use Test::More tests => 10;
6	dpavlin	103	use lib 'lib';
7
8			BEGIN {
9			use_ok('Frey::Test');
10	dpavlin	131	use_ok('Test::WWW::Mechanize');
11	dpavlin	103	}
12
13
14	dpavlin	216	ok( my $url = Frey::Test->start_server, 'start_server' );
15			diag $url;
16	dpavlin	103
17			my $mech = Test::WWW::Mechanize->new;
18	dpavlin	216	$mech->get_ok( $url );
19	dpavlin	103
20			$mech->content_contains("Frey");
21
22	dpavlin	106	$mech->get_ok( '/ob/Strix::User' );
23	dpavlin	216	$mech->content_contains("results");
24	dpavlin	106
25	dpavlin	121	$mech->get_ok( '/~/Frey::Introspect' );
26			$mech->content_contains("introspect.css");
27
28			#diag $mech->content;
29
30	dpavlin	106	#$mech->field( email => 'test@example.com' ); # FIXME we mungle field names
31	dpavlin	103	#$mech->submit;
32
33	dpavlin	106	#$mech->content_contains('test@example.com');
34
35	dpavlin	103	ok( Frey::Test->stop_server, 'stop_server' );
36