New extra tests
This commit is contained in:
parent
888cc760dc
commit
f6de1eb1a5
|
@ -171,7 +171,7 @@ manager: manager_conf
|
||||||
@$(MAKE) -C ${SRCMANAGERDIR}
|
@$(MAKE) -C ${SRCMANAGERDIR}
|
||||||
@touch manager
|
@touch manager
|
||||||
|
|
||||||
test: common handler portal manager common_test handler_test portal_test manager_test
|
test: common_test handler_test portal_test manager_test extra_test
|
||||||
|
|
||||||
common_test: common
|
common_test: common
|
||||||
@$(MAKE) -C ${SRCCOMMONDIR} test
|
@$(MAKE) -C ${SRCCOMMONDIR} test
|
||||||
|
@ -185,6 +185,9 @@ portal_test: portal handler_test common_test
|
||||||
manager_test: manager handler_test common_test
|
manager_test: manager handler_test common_test
|
||||||
@$(MAKE) -C ${SRCMANAGERDIR} test FULLPERL="$(PERL) -I../${SRCCOMMONDIR}/blib/lib/ -I../${SRCHANDLERDIR}/blib/lib/"
|
@$(MAKE) -C ${SRCMANAGERDIR} test FULLPERL="$(PERL) -I../${SRCCOMMONDIR}/blib/lib/ -I../${SRCHANDLERDIR}/blib/lib/"
|
||||||
|
|
||||||
|
extra_test: common handler portal manager
|
||||||
|
PERL_DL_NONLAZY=1 $(PERL) "-MExtUtils::Command::MM" "-e" "test_harness(0, 'lemonldap-ng-common/blib/lib', 'lemonldap-ng-handler/blib/lib', 'lemonldap-ng-manager/blib/lib', 'lemonldap-ng-portal/blib/lib')" extra-tests/*.t
|
||||||
|
|
||||||
#
|
#
|
||||||
# INSTALL
|
# INSTALL
|
||||||
#
|
#
|
||||||
|
|
37
build/lemonldap-ng/extra-tests/PE_Constants.t
Normal file
37
build/lemonldap-ng/extra-tests/PE_Constants.t
Normal file
|
@ -0,0 +1,37 @@
|
||||||
|
use strict;
|
||||||
|
use Test::More tests => 6;
|
||||||
|
|
||||||
|
use_ok( 'Lemonldap::NG::Portal::Simple' );
|
||||||
|
|
||||||
|
ok(open(F, 'lemonldap-ng-portal/blib/lib/Lemonldap/NG/Portal/Simple.pm'));
|
||||||
|
|
||||||
|
my (%h1,%h2,@missingInStatus,@differentValues);
|
||||||
|
|
||||||
|
# Load constants
|
||||||
|
while(<F>){
|
||||||
|
$h1{$1} = $2 if(/^\s*PE_(\w+)\s*=>\s*(-?\d+),$/);
|
||||||
|
last if(/^sub/);
|
||||||
|
}
|
||||||
|
close F;
|
||||||
|
ok(open(F, 'lemonldap-ng-handler/blib/lib/Lemonldap/NG/Handler/Status.pm'));
|
||||||
|
while(<F>){
|
||||||
|
$h2{$2} = $1 if(/^\s*(-?\d+)\s*=>\s*'PORTAL_(\w+)',$/);
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach my $k(sort keys %h1) {
|
||||||
|
if(defined($h2{$k})){
|
||||||
|
unless($h1{$k} == $h2{$k}){
|
||||||
|
push @differentValues,$k;
|
||||||
|
}
|
||||||
|
delete $h2{$k};
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
push @missingInStatus,$k;
|
||||||
|
}
|
||||||
|
delete $h1{$k};
|
||||||
|
}
|
||||||
|
|
||||||
|
ok(!@differentValues,'Search different constant values between Status.pm and portal');
|
||||||
|
ok(!@missingInStatus,join(', ','Search missing constants in Status.pm',@missingInStatus));
|
||||||
|
ok(!(keys %h2), 'Constants set in Status.pm and not in portal');
|
||||||
|
|
Loading…
Reference in New Issue
Block a user