view release on metacpan or  search on metacpan

t/validation/types.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use Test::Fatal;
use Test::Exception;

use Data::MuForm::Types (':assert', ':all');

isa_ok( PositiveNum, 'Type::Tiny', 'PositiveNum' );

ok( assert_PositiveNum("5"), 'PositiveNum works (pass)' );
like( exception { assert_PositiveNum(-1) }, qr/positive number/, 'PositiveNum fails' );