zigorou / perl-JSV

JSON Schema implementation for Perl
Other
25 stars 17 forks source link

Fix loose mode #28

Closed tanaka-tatsuya closed 10 years ago

tanaka-tatsuya commented 10 years ago

loose_type オプションを付けた際に、数値扱いを期待されている文字列("1"など)に対するバリデーションがスルーされてしまう件に対応しました。

use JSV::Validator;
use JSON;
use Test::More

my $test = JSON::decode_json('
    "schema": { "maximum": 0 },
    "target": "1"
');

is( JSV::Validator->new( environment => "draft4" )->validate(@$test{qw/ schema target /}), 0, "should be false" )
# returns => 1
tanaka-tatsuya commented 10 years ago

Build testが通らなかったので 修正入れました。