Я пытаюсь выяснить, как проверить необязательное хеш-поле, используя Тест2::V0. В настоящее время у меня есть следующее:
use 5.016;
use Test2::V0;
subtest 'optional fields in a hash' => sub {
my $check = hash {
field foo => qr/^[0-9]+$/;
field bar => qr/^[a-zA-Z]+$/; # this field is optional
};
like(
{ foo => 1 },
$check,
'should pass when optional field is omitted',
);
like(
{ foo => 2, bar => 'a' },
$check,
'should pass when optional field is provided',
);
};
done_testing;
Теперь, если я отброшу галочку для необязательного поля:
my $check = hash {
field foo => qr/^[0-9]+$/;
# field bar => qr/^[a-zA-Z]+$/; # this field is optional
};
тест пройдет. Но я хочу проверить значение, когда оно есть.
Любые идеи?





См. Test2::Tools::Comparein_set - у меня работает следующее. Не забывайте также тестировать сбои :-)
use warnings;
use 5.016;
use Test2::V0;
subtest 'optional fields in a hash' => sub {
my $check = hash {
field foo => qr/^[0-9]+$/;
field bar => in_set( DNE(), qr/^[a-zA-Z]+$/ );
};
like( { foo => 1 }, $check,
'should pass when optional field is omitted' );
like( { foo => 2, bar => 'a' }, $check,
'should pass when optional field is provided' );
unlike( { foo => 2, bar => undef }, $check,
'should fail when optional field is provided with no value' );
unlike( { foo => 2, bar => '+' }, $check,
'should fail when optional field is provided with bad value' );
};
done_testing;
Я изобретатель/сопровождающий Test2, я одобряю этот ответ как правильный.