Commit d891fb31 authored by Yadd's avatar Yadd
Browse files

Update manager tests

parent 37be45b3
...@@ -38,7 +38,7 @@ foreach my $type ( keys %types ) { ...@@ -38,7 +38,7 @@ foreach my $type ( keys %types ) {
delete $types{$type}; delete $types{$type};
next next
if ( $type =~ 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" ); ok( $forms{$type}, "Found $type" );
delete $forms{$type}; delete $forms{$type};
...@@ -75,9 +75,11 @@ sub getTypes { ...@@ -75,9 +75,11 @@ sub getTypes {
sub _getTypes { sub _getTypes {
my ( $tree, $res ) = splice @_; my ( $tree, $res ) = splice @_;
$tree = [$tree] unless ( ref($tree) );
foreach my $k (@$tree) { foreach my $k (@$tree) {
if ( ref($k) ) { 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} ); $res->{ $k->{form} }++ if ( $k->{form} );
} }
} }
......
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