Verify that all attributes have been checked
This commit is contained in:
parent
4faf8fd749
commit
2acbbf9de6
File diff suppressed because one or more lines are too long
|
@ -5,6 +5,7 @@
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use Test::More;
|
use Test::More;
|
||||||
|
use Data::Dumper;
|
||||||
|
|
||||||
my $knownExceptions = qr/^(?:remoteCookieName)$/;
|
my $knownExceptions = qr/^(?:remoteCookieName)$/;
|
||||||
|
|
||||||
|
@ -50,14 +51,20 @@ foreach my $t ( values %$tree ) {
|
||||||
|
|
||||||
foreach ( keys %h2 ) {
|
foreach ( keys %h2 ) {
|
||||||
s/^\*//;
|
s/^\*//;
|
||||||
ok( delete( $h{$_} ), "Leaf $_ exists in attributes" );
|
ok( defined( $h{$_} ), "Leaf $_ exists in attributes" );
|
||||||
|
delete $h{$_};
|
||||||
$count++;
|
$count++;
|
||||||
}
|
}
|
||||||
foreach (@notManagedAttributes) {
|
foreach (@notManagedAttributes) {
|
||||||
ok( delete( $h{$_} ), "Unmanaged attribute '$_' is declared" );
|
ok( defined( $h{$_} ), "Unmanaged attribute '$_' is declared" );
|
||||||
|
delete $h{$_};
|
||||||
$count++;
|
$count++;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
ok( !%h, "No remaining attributes" )
|
||||||
|
or print STDERR Dumper( { 'Remaining attributes' => [ keys %h ] } );
|
||||||
|
$count++;
|
||||||
|
|
||||||
done_testing($count);
|
done_testing($count);
|
||||||
|
|
||||||
sub scanTree {
|
sub scanTree {
|
||||||
|
|
Loading…
Reference in New Issue
Block a user