Commit 660252a0 authored by Xavier Guimard's avatar Xavier Guimard

LEMONLDAP::NG : little bug correction in configuration syntax control (Closes:...

LEMONLDAP::NG : little bug correction in configuration syntax control (Closes: #307044) and more tests in Manager
parent 3b708387
......@@ -3,9 +3,8 @@ lemonldap-ng (0.8.2.1) unstable; urgency=low
* More documentation
* Virtual host names control
* Portal can now use more than one LDAP server
* Bug in DBI.pm
-- Xavier Guimard <x.guimard@free.fr> Tue, 15 May 2007 06:19:23 +0200
-- Xavier Guimard <x.guimard@free.fr> Mon, 14 May 2007 07:14:10 +0200
lemonldap-ng (0.8.2) unstable; urgency=low
......
Revision history for Perl extension Lemonldap::NG::Manager.
0.66 Tue May 15 19:53:40 2007
- Little bug correction: '-' is authorized in domain names
0.65 Sun May 6 16:15:49 2007
- SOAP: HTTP basic authentication and little bug correction in 'sessions'
mode
......
......@@ -16,7 +16,7 @@ use MIME::Base64;
our @ISA = qw(Lemonldap::NG::Manager::Base);
our $VERSION = '0.65';
our $VERSION = '0.66';
sub new {
my ( $class, $args ) = @_;
......@@ -408,7 +408,7 @@ sub checkConf {
# Check cookie name
return 0 unless( $config->{cookieName} =~ /^\w+$/ );
# Check domain name
return 0 unless( $config->{domain} =~ /^[\w\.]+$/ );
return 0 unless( $config->{domain} =~ /^\w[\w\.\-]*\w$/ );
# Load variables
foreach(keys %{ $config->{exportedVars} }) {
# Reserved words
......
......@@ -18,7 +18,7 @@ our ( $username, $password ) = ( '', '' );
sub prereq {
my $self = shift;
unless ( $self->{proxy} ) {
print STDERR 'No SOAP parameters found (proxy and uri)';
print STDERR 'No SOAP parameters found (proxy)';
return 0;
}
1;
......
......@@ -5,7 +5,7 @@
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More tests => 2;
use Test::More tests => 3;
BEGIN { use_ok('Lemonldap::NG::Manager::Conf') }
#########################
......@@ -24,3 +24,5 @@ ok(
}
)
);
ok( $h->can( 'dbh' ) );
......@@ -5,7 +5,7 @@
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More tests => 1;
use Test::More tests => 4;
# SOAP::Lite is not required, so Lemonldap::NG::Manager::Conf::SOAP may
# not run.
......@@ -13,9 +13,20 @@ SKIP: {
eval { require SOAP::Lite };
skip
"SOAP::Lite is not installed, so SOAP configuration access will not work",
1
4
if ($@);
use_ok('Lemonldap::NG::Manager::Conf::SOAP');
use_ok('Lemonldap::NG::Manager::Conf');
my $h;
ok(
$h = new Lemonldap::NG::Manager::Conf(
{
type => 'SOAP',
proxy => 'http://localhost',
}
)
);
ok( $h->can( '_connect' ) );
ok( $h->can( '_soapCall' ) );
}
#########################
......
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