dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LEMONLDAP::NG : correct some little bugs seen in 'make test'

Browse Source
This commit is contained in:
Clément Oudot 2009-05-26 12:24:03 +00:00
parent d2edd78c44
commit 68975eaa40
7 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthApache.pm
View File

@ -20,6 +20,7 @@ sub authInit {
# Store user.
# @return Lemonldap::NG::Portal constant
sub setAuthSessionInfo {
my $self = shift;
# Store user submitted login for basic rules
$self->{sessionInfo}->{'_user'} = $self->{'user'};

1
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthCAS.pm
View File

@ -49,6 +49,7 @@ sub extractFormInfo {
# Does nothing here.
# @return Lemonldap::NG::Portal constant
sub setAuthSessionInfo {
my $self = shift;
# Store user submitted login for basic rules
$self->{sessionInfo}->{'_user'} = $self->{'user'};

2
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthRemote.pm
View File

@ -30,7 +30,7 @@ sub extractFormInfo {
# Delete stored password if local policy does not accept stored passwords.
# @return Lemonldap::NG::Portal constant
sub setAuthSessionInfo {
my $self = shift;
# Store user login for basic rules
$self->{sessionInfo}->{'_user'} = $self->{'user'};

1
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthSSL.pm
View File

@ -56,6 +56,7 @@ sub extractFormInfo {
# Store user.
# @return Lemonldap::NG::Portal constant
sub setAuthSessionInfo {
my $self = shift;
# Store user certificate login for basic rules
$self->{sessionInfo}->{'_user'} = $self->{'user'};

1
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBNull.pm
View File

@ -6,6 +6,7 @@
package Lemonldap::NG::Portal::UserDBNull;
use strict;
use Lemonldap::NG::Portal::Simple;
## @apmethod int userDBInit()
# Do nothing

4
modules/lemonldap-ng-portal/t/01-Lemonldap-NG-Portal-Simple.t
View File

@ -67,8 +67,8 @@ ok( $p->{error} == PE_FORMEMPTY, 'Error code: missing password' );
# No ldap
$p->{extractFormInfo} = sub {
my $self = shift;
$self->{user} = 'user';
$self->{password} = '';
$self->{user} = 'user';
$self->{password} = '';
PE_OK;
};

15
modules/lemonldap-ng-portal/t/30-Lemonldap-NG-Portal-UserDBNull.t Normal file
View File

@ -0,0 +1,15 @@
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Lemonldap-NG-Portal-UserDBNull.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More tests => 1;
BEGIN { use_ok('Lemonldap::NG::Portal::UserDBNull') };
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.