Commit 4c87b96f authored by Xavier Guimard's avatar Xavier Guimard

Add select content in Manager/Attributes.pm for tests

parent 93b3522e
......@@ -17,7 +17,7 @@ has managerConstantsFile => ( isa => 'Str', is => 'ro', required => 1 );
has managerAttributesFile => ( isa => 'Str', is => 'ro', required => 1 );
has defaultValuesFile => ( isa => 'Str', is => 'ro', required => 1 );
my @managerAttrKeys = qw(keyTest type test msgFail default);
my @managerAttrKeys = qw(keyTest select type test msgFail default);
my $format = 'Creating %-69s: ';
my $reIgnoreKeys = qr/^$/;
my $module = __PACKAGE__;
......
......@@ -153,7 +153,9 @@ qr/^(?:(?:\-+\s*BEGIN\s+RSA\s+PRIVATE\s+KEY\s*\-+\r?\n)?[a-zA-Z0-9\/\+\r\n]+={0,
test => sub {
my $test =
grep { $_ eq $_[0] } map { $_->{k} } @{ $_[2]->{select} };
return $test ? 1 : 0;
return $test
? 1
: ( 0, "Invalid value '$_[0]' for this select" );
},
},
virtualHost => {
......
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