--- trunk/t/90-frey-server.t	2008/07/11 23:08:25	103
+++ trunk/t/90-frey-server.t	2008/07/15 13:45:33	131
@@ -2,18 +2,14 @@
 use strict;
 use warnings;
 
-use Test::More tests => 6;
+use Test::More tests => 11;
 use lib 'lib';
 
 BEGIN {
 	use_ok('Frey::Test');
+	use_ok('Test::WWW::Mechanize');
 }
 
-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' );
@@ -23,11 +19,18 @@
 
 $mech->content_contains("Frey");
 
-#$mech->field( name => $name );
-#$mech->field( favorite => $thing1, 1 );
-#$mech->field( favorite => $thing2, 2 );
-#$mech->field( favorite => $thing3, 3 );
+$mech->get_ok( '/ob/Strix::User' );
+$mech->content_contains("Email");
+
+$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' );