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, 6 insertions, 8 deletions
diff --git a/rt/lib/t/regression/03web_compiliation_errors.t b/rt/lib/t/regression/03web_compiliation_errors.t index f2e62c98d..29e56d67b 100644 --- a/rt/lib/t/regression/03web_compiliation_errors.t +++ b/rt/lib/t/regression/03web_compiliation_errors.t @@ -12,19 +12,18 @@ 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" @@ -45,20 +44,19 @@ 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/##; + $file =~ s#^html/##; + diag( "testing $url/$file" ) if $ENV{TEST_VERBOSE}; 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'} !~ /System error/i, "Didn't get a Mason compilation error on $file"); - + ok( $agent->{'content'} !~ /raw error/i, "Didn't get a Mason compilation error on $file"); } # }}} |