7 -f && /\.html$/ && $_ !~ /Logout.html$/ && $File::Find::dir !~ /RichText/;
10 find( sub { wanted() and $tests += 4 }, 'share/html/' );
11 plan tests => $tests + 1; # plus one for warnings check
15 use HTTP::Request::Common;
19 my $cookie_jar = HTTP::Cookies->new;
22 my ($baseurl, $agent) = RT::Test->started_ok;
24 # give the agent a place to stash the cookies
25 $agent->cookie_jar($cookie_jar);
28 my $url = $agent->rt_base_url;
31 is($agent->status, 200, "Loaded a page");
33 # follow the link marked "Login"
34 $agent->login(root => 'password');
35 is($agent->status, 200, "Fetched the page ok");
36 $agent->content_contains('Logout', "Found a logout link");
39 find ( sub { wanted() and test_get($agent, $File::Find::name) } , 'share/html/');
42 local $TODO = "we spew *lots* of undef warnings";
43 $agent->no_warnings_ok;
50 $file =~ s#^share/html/##;
51 diag( "testing $url/$file" );
53 $agent->get_ok("$url/$file");
54 is($agent->status, 200, "Loaded $file");
55 $agent->content_lacks('Not logged in', "Still logged in for $file");
56 $agent->content_lacks('raw error', "Didn't get a Mason compilation error on $file") or do {
57 if (my ($error) = $agent->content =~ /<pre>(.*?line.*?)$/s) {