dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update manager tests

Browse Source
This commit is contained in:
Xavier Guimard 2015-12-16 11:37:43 +00:00
parent 37be45b36a
commit d891fb318c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lemonldap-ng-manager/t/03-HTML-forms.t
View File

@ -38,7 +38,7 @@ foreach my $type ( keys %types ) {
delete $types{$type};
next
if ( $type =~
/^(?:url|PerlModule|hostname|pcre|lmAttrOrMacro|subContainer|RSAP(?:ublic|rivate)Key)$/
/^(?:authParamsText|url|PerlModule|hostname|pcre|lmAttrOrMacro|subContainer|RSAP(?:ublic|rivate)Key)$/
);
ok( $forms{$type}, "Found $type" );
delete $forms{$type};
@ -75,9 +75,11 @@ sub getTypes {
sub _getTypes {
my ( $tree, $res ) = splice @_;
$tree = [$tree] unless ( ref($tree) );
foreach my $k (@$tree) {
if ( ref($k) ) {
_getTypes( $k->{nodes}, $res );
_getTypes( $k->{nodes}, $res ) if ( $k->{nodes} );
_getTypes( $k->{nodes_cond}, $res ) if ( $k->{nodes_cond} );
$res->{ $k->{form} }++ if ( $k->{form} );
}
}