diff options
Diffstat (limited to 'rt/lib/t/regression/03web_compiliation_errors.t')
| -rw-r--r-- | rt/lib/t/regression/03web_compiliation_errors.t | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/rt/lib/t/regression/03web_compiliation_errors.t b/rt/lib/t/regression/03web_compiliation_errors.t index 29e56d67b..f2e62c98d 100644 --- a/rt/lib/t/regression/03web_compiliation_errors.t +++ b/rt/lib/t/regression/03web_compiliation_errors.t @@ -12,18 +12,19 @@ my $cookie_jar = HTTP::Cookies->new; my $agent = WWW::Mechanize->new(); # give the agent a place to stash the cookies + $agent->cookie_jar($cookie_jar); use RT; -RT::LoadConfig(); +RT::LoadConfig; # get the top page my $url = $RT::WebURL; -diag "Base URL is '$url'" if $ENV{TEST_VERBOSE}; $agent->get($url); is ($agent->{'status'}, 200, "Loaded a page"); + # {{{ test a login # follow the link marked "Login" @@ -44,19 +45,20 @@ use File::Find; find ( \&wanted , 'html/'); sub wanted { - -f && /\.html$/ && $_ !~ /Logout.html$/ && test_get($File::Find::name); + -f && /\.html$/ && $_ !~ /Logout.html$/ && test_get($File::Find::name); } sub test_get { my $file = shift; - $file =~ s#^html/##; - diag( "testing $url/$file" ) if $ENV{TEST_VERBOSE}; + + $file =~ s#^html/##; ok ($agent->get("$url/$file", "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"); + ok( $agent->{'content'} !~ /System error/i, "Didn't get a Mason compilation error on $file"); + } # }}} |