Commit 68975eaa authored by Clément OUDOT's avatar Clément OUDOT

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

parent d2edd78c
......@@ -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'};
......
......@@ -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'};
......
......@@ -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'};
......
......@@ -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'};
......
......@@ -6,6 +6,7 @@
package Lemonldap::NG::Portal::UserDBNull;
use strict;
use Lemonldap::NG::Portal::Simple;
## @apmethod int userDBInit()
# Do nothing
......
......@@ -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;
};
......
# 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.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment