- diag( "testing $url/$file" ) if $ENV{TEST_VERBOSE};
- ok ($agent->get("$url/$file", "GET $url/$file"), "Can Get $url/$file");
- is ($agent->{'status'}, 200, "Loaded $file");
-# ok( $agent->{'content'} =~ /Logout/i, "Found a logout link on $file ");
- ok( $agent->{'content'} !~ /Not logged in/i, "Still logged in for $file");
- ok( $agent->{'content'} !~ /raw error/i, "Didn't get a Mason compilation error on $file");
+ diag( "testing $url/$file" );
+
+ $agent->get_ok("$url/$file");
+ is($agent->status, 200, "Loaded $file");
+ $agent->content_lacks('Not logged in', "Still logged in for $file");
+ $agent->content_lacks('raw error', "Didn't get a Mason compilation error on $file") or do {
+ if (my ($error) = $agent->content =~ /<pre>(.*?line.*?)$/s) {
+ diag "$file: $error";
+ }
+ };