LEONLDAP::NG : Better tests for Lemonldap::NG::Common
This commit is contained in:
parent
ad0ed7f3ba
commit
09f1a45cab
|
@ -14,10 +14,10 @@ META.yml Module meta-data (added by MakeMaker)
|
||||||
README
|
README
|
||||||
scripts/lmConfig_File2MySQL
|
scripts/lmConfig_File2MySQL
|
||||||
storage.conf
|
storage.conf
|
||||||
t/01-Manager-Conf.t
|
t/01-Common-Conf.t
|
||||||
t/02-Manager-Conf-File.t
|
t/02-Common-Conf-File.t
|
||||||
t/03-Manager-Conf-DBI.t
|
t/03-Common-Conf-DBI.t
|
||||||
t/04-Manager-Conf-SOAP.t
|
t/04-Common-Conf-SOAP.t
|
||||||
t/10-Common.t
|
t/10-Common.t
|
||||||
t/99-pod.t
|
t/99-pod.t
|
||||||
tools/apache-session-mysql.sql
|
tools/apache-session-mysql.sql
|
||||||
|
|
|
@ -15,8 +15,6 @@ our %_confFiles;
|
||||||
|
|
||||||
sub new {
|
sub new {
|
||||||
my $class = shift;
|
my $class = shift;
|
||||||
my $args;
|
|
||||||
$args ||= {};
|
|
||||||
my $self = bless {}, $class;
|
my $self = bless {}, $class;
|
||||||
if ( ref( $_[0] ) ) {
|
if ( ref( $_[0] ) ) {
|
||||||
%$self = %{ $_[0] };
|
%$self = %{ $_[0] };
|
||||||
|
@ -25,7 +23,7 @@ sub new {
|
||||||
%$self = @_;
|
%$self = @_;
|
||||||
}
|
}
|
||||||
unless ( $self->{mdone} ) {
|
unless ( $self->{mdone} ) {
|
||||||
$self->_readConfFile( $self->{confFile} );
|
$self->_readConfFile( $self->{confFile} ) unless ( $self->{type} );
|
||||||
unless ( $self->{type} ) {
|
unless ( $self->{type} ) {
|
||||||
$msg .= "Error: configStorage: type is not defined\n";
|
$msg .= "Error: configStorage: type is not defined\n";
|
||||||
return 0;
|
return 0;
|
||||||
|
|
|
@ -5,7 +5,7 @@
|
||||||
|
|
||||||
# change 'tests => 1' to 'tests => last_test_to_print';
|
# change 'tests => 1' to 'tests => last_test_to_print';
|
||||||
|
|
||||||
use Test::More tests => 1;
|
use Test::More tests => 3;
|
||||||
BEGIN { use_ok('Lemonldap::NG::Common::Conf') }
|
BEGIN { use_ok('Lemonldap::NG::Common::Conf') }
|
||||||
|
|
||||||
#########################
|
#########################
|
||||||
|
@ -13,3 +13,18 @@ BEGIN { use_ok('Lemonldap::NG::Common::Conf') }
|
||||||
# Insert your test code below, the Test::More module is use()ed here so read
|
# 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.
|
# its man page ( perldoc Test::More ) for help writing this test script.
|
||||||
|
|
||||||
|
my $h;
|
||||||
|
|
||||||
|
ok(
|
||||||
|
(
|
||||||
|
Lemonldap::NG::Common::Conf->new( type => 'bad' ) == 0
|
||||||
|
and $Lemonldap::NG::Common::Conf::msg =~
|
||||||
|
/Error: Unknown package Lemonldap::NG::Common::Conf::bad$/
|
||||||
|
),
|
||||||
|
'Bad module'
|
||||||
|
);
|
||||||
|
|
||||||
|
$h = bless {}, 'Lemonldap::NG::Common::Conf';
|
||||||
|
|
||||||
|
ok( $h->_readConfFile('storage.conf'), 'Read storage.conf' );
|
||||||
|
|
|
@ -14,12 +14,14 @@ BEGIN { use_ok('Lemonldap::NG::Common::Conf') }
|
||||||
# its man page ( perldoc Test::More ) for help writing this test script.
|
# its man page ( perldoc Test::More ) for help writing this test script.
|
||||||
|
|
||||||
my $h;
|
my $h;
|
||||||
@ARGV = ("help=groups");
|
|
||||||
ok(
|
ok(
|
||||||
$h = new Lemonldap::NG::Common::Conf(
|
$h = new Lemonldap::NG::Common::Conf(
|
||||||
{
|
{
|
||||||
type => 'File',
|
type => 'File',
|
||||||
dirName => ".",
|
dirName => ".",
|
||||||
}
|
}
|
||||||
)
|
),
|
||||||
|
'type => file',
|
||||||
);
|
);
|
||||||
|
|
|
@ -26,3 +26,4 @@ ok(
|
||||||
);
|
);
|
||||||
|
|
||||||
ok( $h->can( 'dbh' ) );
|
ok( $h->can( 'dbh' ) );
|
||||||
|
|
Loading…
Reference in New Issue
Block a user