#!perl

# some checks for human compilation (lang=id_ID). currently only for sanity, not
# thorough at all.

use 5.010001;
use strict;
use warnings;
use Test::More 0.98;
use Test::Data::Sah::Human qw(test_human);

my @tests = (
    {schema=>"int",
     result=>"bilangan bulat"},

    # array
    # -- test ordinate()
    {schema=>[array => elems => ["int"]],
     result=>"larik, elemen ke-1 harus: bilangan bulat"},
);

# XXX use test_sah_cases() when it supports js
for my $test (@tests) {
    test_human(lang=>"id_ID", %$test);
}
done_testing;