[Bps-public-commit] r20280 - RT-Authen-ExternalAuth/trunk/t

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Feb 22 02:02:17 2011
New Revision: 20280

Modified:
   RT-Authen-ExternalAuth/trunk/t/ldap.t

Log:
check the default created user is unprivileged

Modified: RT-Authen-ExternalAuth/trunk/t/ldap.t
==============================================================================
--- RT-Authen-ExternalAuth/trunk/t/ldap.t	(original)
+++ RT-Authen-ExternalAuth/trunk/t/ldap.t	Tue Feb 22 02:02:17 2011
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 9;
+use RT::Test tests => 10;
 use Net::LDAP;
 use RT::Authen::ExternalAuth;
 
@@ -31,6 +31,7 @@
 RT->Config->Set( ExternalAuthPriority        => ['My_LDAP'] );
 RT->Config->Set( ExternalServiceUsesSSLorTLS => 0 );
 RT->Config->Set( AutoCreateNonExternalUsers  => 0 );
+RT->Config->Set( AutoCreate  => undef );
 RT->Config->Set(
     ExternalSettings => {    # AN EXAMPLE DB SERVICE
         'My_LDAP' => {
@@ -49,8 +50,8 @@
         },
     }
 );
-my ( $baseurl, $m ) = RT::Test->started_ok();
 
+my ( $baseurl, $m ) = RT::Test->started_ok();
 
 diag "test uri login";
 {
@@ -69,6 +70,8 @@
     $m->text_contains( 'Logout', 'logged in via form' );
 }
 
+is( $m->uri, $baseurl . '/SelfService/' , 'selfservice page' );
+
 diag "test redirect after login";
 {
     $m->logout;
@@ -81,5 +84,6 @@
     is( $m->uri, $baseurl . '/SelfService/Closed.html' );
 }
 
+
 $ldap->unbind();