52 lines
1.3 KiB
Perl
52 lines
1.3 KiB
Perl
#!perl -w
|
|
use constant HAS_LEAKTRACE => eval { require Test::LeakTrace };
|
|
use Test::More HAS_LEAKTRACE
|
|
? ( tests => 5 )
|
|
: ( skip_all => 'require Test::LeakTrace' );
|
|
use Test::LeakTrace;
|
|
|
|
require 't/test-lib.pm';
|
|
require Lemonldap::NG::Common::Conf;
|
|
require Lemonldap::NG::Common::Conf::Backends::File;
|
|
|
|
my $ini = { logLevel => 'error', useSafejail => 0 };
|
|
foreach my $k ( keys %{$LLNG::Manager::Test::defaultIni} ) {
|
|
$ini->{$k} //= $LLNG::Manager::Test::defaultIni->{$k};
|
|
}
|
|
|
|
# Test without initialization
|
|
leaks_cmp_ok {
|
|
my $o = Lemonldap::NG::Common::PSGI::Cli::Lib->new;
|
|
my $p = Lemonldap::NG::Portal::Main->new();
|
|
}
|
|
'<', 1;
|
|
|
|
# Test local config
|
|
leaks_cmp_ok {
|
|
Lemonldap::NG::Common::Conf->new( $ini->{configStorage} )
|
|
->getLocalConf('portal');
|
|
}
|
|
'<', 1;
|
|
|
|
TODO: {
|
|
local $TODO = "Not yet fully cleaned";
|
|
|
|
fail "Unable to really destroy a portal object for now";
|
|
|
|
# Test with initialization
|
|
#my $p = Lemonldap::NG::Portal::Main->new();
|
|
#$p->init($ini);
|
|
#leaks_cmp_ok {
|
|
# my $p2 = Lemonldap::NG::Portal::Main->new();
|
|
# $p2->init($ini);
|
|
# pop @Lemonldap::NG::Handler::Main::_onReload;
|
|
#} '<', 1;
|
|
}
|
|
|
|
my $p = Lemonldap::NG::Portal::Main->new();
|
|
$p->init($ini);
|
|
leaks_cmp_ok {
|
|
$p->reloadConf( $p->conf );
|
|
}
|
|
'<', 1;
|