#!perl
# minimal and temporary tests, pending real date spectest from Sah
use 5.010;
use strict;
use warnings;
use DateTime;
use Test::Data::Sah qw(test_sah_cases);
use Test::More 0.96;
# just testing that bool in perl can accept numbers and strings
my @tests = (
{schema=>["date"], input=>"2014-01-25", valid=>1},
{schema=>["date"], input=>"2014-01-25T23:59:59Z", valid=>1},
{schema=>["date"], input=>"2014-02-30", valid=>0},
{schema=>["date"], input=>"2014-01-25T23:59:70Z", valid=>0},
{schema=>["date"], input=>"x", valid=>0},
{schema=>["date"], input=>100_000_000, valid=>1},
{schema=>["date"], input=>100_000, valid=>0},
{schema=>["date"], input=>DateTime->now, valid=>1},
{schema=>["date", min=>"2014-01-01"], input=>"2013-12-12", valid=>0},
{schema=>["date", min=>"2014-01-02"], input=>"2014-01-02", valid=>1},
{schema=>["date", min=>"2014-01-02"], input=>"2014-02-01", valid=>1},
{schema=>["date", min=>"2014-01-02T02:10:10Z"],
input=>"2014-01-02", valid=>0},
{schema=>["date", min=>"2014-01-02T02:10:10Z"],
input=>"2014-02-01T03:00:00Z", valid=>1},
{schema=>["date", min=>"2014-01-02"], input=>1_000_000_000, valid=>0},
{schema=>["date", min=>"2014-01-02"], input=>2_000_000_000, valid=>1},
);
test_sah_cases(\@tests);
done_testing();