2 |
use strict; |
use strict; |
3 |
use warnings; |
use warnings; |
4 |
|
|
5 |
use Test::More tests => 8; |
use Test::More tests => 10; |
6 |
use lib 'lib'; |
use lib 'lib'; |
7 |
|
|
8 |
BEGIN { |
BEGIN { |
26 |
$mech->get_ok( '/ob/Strix::User' ); |
$mech->get_ok( '/ob/Strix::User' ); |
27 |
$mech->content_contains("Email"); |
$mech->content_contains("Email"); |
28 |
|
|
29 |
|
$mech->get_ok( '/~/Frey::Introspect' ); |
30 |
|
$mech->content_contains("introspect.css"); |
31 |
|
|
32 |
|
#diag $mech->content; |
33 |
|
|
34 |
#$mech->field( email => 'test@example.com' ); # FIXME we mungle field names |
#$mech->field( email => 'test@example.com' ); # FIXME we mungle field names |
35 |
#$mech->submit; |
#$mech->submit; |
36 |
|
|