X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fweb%2Fredirect-after-login.t;h=eb2718cf36b73fd4f11624e6762c11d396c14c8f;hb=716f9a57dc05e2b1edac20fe7869efb5ba9a886b;hp=d429d30d190770d4cf8956a42432c9c67658f33b;hpb=6587f6ba7d047ddc1686c080090afe7d53365bd4;p=freeside.git diff --git a/rt/t/web/redirect-after-login.t b/rt/t/web/redirect-after-login.t index d429d30d1..eb2718cf3 100644 --- a/rt/t/web/redirect-after-login.t +++ b/rt/t/web/redirect-after-login.t @@ -1,12 +1,9 @@ -#!/usr/bin/perl use strict; use warnings; use RT::Test tests => 122; -RT->Config->Set( GnuPG => Enable => 0 ); - my ($baseurl, $agent) = RT::Test->started_ok; my $url = $agent->rt_base_url; @@ -196,16 +193,17 @@ for my $path (qw(Prefs/Other.html /Prefs/Other.html)) { # test REST login response { + $agent = RT::Test::Web->new; my $requested = $url."REST/1.0/?user=root;pass=password"; $agent->get($requested); is($agent->status, 200, "Loaded a page"); is($agent->uri, $requested, "didn't redirect to /NoAuth/Login.html for REST"); - $agent->get_ok($url); - $agent->logout(); + $agent->get_ok($url."REST/1.0"); } # test REST login response for wrong pass { + $agent = RT::Test::Web->new; my $requested = $url."REST/1.0/?user=root;pass=passwrong"; $agent->get_ok($requested); is($agent->status, 200, "Loaded a page"); @@ -217,6 +215,7 @@ for my $path (qw(Prefs/Other.html /Prefs/Other.html)) { # test REST login response for no creds { + $agent = RT::Test::Web->new; my $requested = $url."REST/1.0/"; $agent->get_ok($requested); is($agent->status, 200, "Loaded a page"); @@ -225,7 +224,7 @@ for my $path (qw(Prefs/Other.html /Prefs/Other.html)) { unlike($agent->content, qr/Your username or password is incorrect/, "didn't get any error message"); } -# XXX TODO: we should also be testing WebExternalAuth here, but we don't have +# XXX TODO: we should also be testing WebRemoteUserAuth here, but we don't have # the framework for dealing with that 1;