• Files
• Commits
• Log
• Graph
• Stats

use Test::More;

use Reporter::Class;

require_ok( 'Reporter::Test' ); # Data::Printer, Mooo, etc

use Reporter::Test;

my $t = Reporter::Test->new;

my $invalid_lab_number = { lab_number => 200 };
my $valid_lab_number   = { lab_number => '200/15' };

my $model_validator = $t->app->validator; # DFV
my $app_validator   = $t->app->model->validator; # HTML::FormHandler

{ # invalid lab number (Data::FormValidator):
    my $res = $model_validator->validate( search_form => $invalid_lab_number ); # p $res;
    is( $res->{failed}, 1, 'OK: lab number validation failed' );
}

{ # valid lab number (Data::FormValidator):
    my $res = $model_validator->validate( search_form => $valid_lab_number ); # p $res;
    is( $res->{success}, 1, 'OK: lab number validation passed');
}

{ # invalid lab number (HTML::FormHandler):
    my $res = $app_validator->validate( search => $invalid_lab_number ); # p $res;
    is( $res->{failed}, 1, 'OK: lab number validation failed' );
}

{ # valid lab number (HTML::FormHandler):
    my $res = $app_validator->validate( search => $valid_lab_number ); # p $res;
    is( $res->{success}, 1, 'OK: lab number validation passed' );
}

done_testing(5);