--- trunk/t/90-frey-server.t	2008/07/13 12:22:14	106
+++ trunk/t/90-frey-server.t	2008/10/31 22:39:48	216
@@ -2,29 +2,30 @@
 use strict;
 use warnings;
 
-use Test::More tests => 8;
+use Test::More tests => 10;
 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' );
+ok( my $url = Frey::Test->start_server, 'start_server' );
+diag $url;
 
 my $mech = Test::WWW::Mechanize->new;
-$mech->get_ok( $server );
+$mech->get_ok( $url );
 
 $mech->content_contains("Frey");
 
 $mech->get_ok( '/ob/Strix::User' );
-$mech->content_contains("Email");
+$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;