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

Question

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

Источник модуля (свернут для stackru.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';

Answer 1

Пожалуйста use strict перед публикацией в Stackru. Вы не включили 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';