Как проверить сообщения об ошибках подтипа Moose?

Я использую подтипы Moose для атрибутов и хочу проверить (Test::More) их правильную обработку входных данных, нарушающих ограничения. В настоящее время внутренняя обработка ошибок Mooses полностью останавливает мой тестовый файл, когда он видит недопустимые данные.

Исходный код модуля (свернутый для stackoverflow.com):

package Doctor;
use Moose;
use Moose::Util::TypeConstraints;
subtype 'Phone_nr_t'
   => as 'Str'
   => where { $_ =~ /^\+?[0-9 ]+$/ }
   => message { 'A Phone_nr must be blabla' };
has 'fax' => (is => 'rw', isa => 'Phone_nr_t');

Источник теста:

use Test::More tests=>1;
use Doctor;

my $testdoc=Doctor->new(fax=>'0341 2345678');
throws_ok { $testdoc->fax('123,456') }
    qr('A Phone_nr must be blabla'),
    'fax shall reject bad numbers';

unit-testing subtype perl moose test-more
person Ralf Muschall    schedule 01.01.2016    source источник
comment
Добро пожаловать в Stack Overflow и в тег Perl. Это очень хороший первый вопрос! Я с нетерпением жду большего. :)   -  person simbabque    schedule 02.01.2016

Ответы (1)


arrow_upward
2
arrow_downward

Пожалуйста, use strict перед публикацией на StackOverflow. Вы не включили use Test::Exception;, поэтому у вас нет throws_ok. Если вы включите это, ваш код почти работает.

Это работает:

throws_ok { $testdoc->fax('123,456') }
    Moose::Exception::ValidationFailedForInlineTypeConstraint,
    'fax shall reject bad numbers';

Также ваше определение шаблона регулярного выражения неверно. Он пытается сопоставить несуществующие кавычки.

throws_ok { $testdoc->fax('123,456') }
    qr(A Phone_nr must be blabla),
    'fax shall reject bad numbers';
person bolav    schedule 01.01.2016
comment
На самом деле {} часть qr не является проблемой. Одинарные кавычки внутри выражения. qr(foo) или qr'foo' оба были бы в порядке, как и qr/foo/. - person simbabque; 02.01.2016
comment
У меня был use strict на моем ПК (я всегда использую шаблон с этим и многим другим), просто свернул его здесь (а затем Moose::Exception::vali... тоже требует кавычек). Test::Exception отсутствовал, потому что я скомпилировал более новый perl для использования Marpa. Теперь все в порядке, оба ответа работают. - person Ralf Muschall; 02.01.2016