Comment tester les messages d'erreur du sous-type Moose?

Question

J'utilise les sous-types Moose pour les attributs et je veux tester (Test :: More) leur gestion correcte des entrées violant les contraintes. Actuellement, la gestion des erreurs internes de Mooses fait que mon fichier de test s'arrête complètement lorsqu'il voit les données invalides.

module source (réduite au minimum pour 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'); 

source de test:

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

S'il vous plaît use strict avant de poster sur StackOverflow. Vous n'avez pas inclus use Test::Exception; donc vous n'avez pas throws_ok. Si vous incluez que votre code fonctionne presque.

Cela fonctionne:

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

également votre définition du modèle d'expression régulière est faux. Il essaie de faire correspondre des citations qui n'existent pas.

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