view release on metacpan or  search on metacpan

t/05_format_validation.t  view on Meta::CPAN

    ok($vf->validate(3.14)->is_valid, 'valid float: 3.14');
    ok($vf->validate(0)->is_valid, 'valid float: 0');
    ok($vf->validate(-3.14)->is_valid, 'valid float: negative');
    ok($vf->validate(1.23e10)->is_valid, 'valid float: scientific notation');
    
    # Valid doubles
    ok($vd->validate(3.141592653589793)->is_valid, 'valid double: pi');
    ok($vd->validate(1.7976931348623157e308)->is_valid, 'valid double: large');
    
    # Special values as strings
    ok($vf->validate('NaN')->is_valid || !$vf->validate('NaN')->is_valid, 'NaN handling defined');
    ok($vf->validate('Infinity')->is_valid || !$vf->validate('Infinity')->is_valid, 'Infinity handling defined');
    
    # Invalid
    ok(!$vf->validate('hello')->is_valid, 'invalid float: text');
    ok(!$vd->validate([1, 2, 3])->is_valid, 'invalid double: array');
};

#
# Pattern Validation Tests
#