1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!perl
use 5.010;
use strict;
use warnings;
use Test::Exception;
use Test::More 0.98;
# what we have here are casual tests. more complete tests in Sah's spectest
use Data::Sah::Normalize qw(normalize_clset normalize_schema);
is_deeply(normalize_clset({'!a'=>1, 'b|'=>[2,3], 'c&'=>[4,5], 'd='=>6, 'summary(id)'=>'blah'}),
{a=>1, 'a.op'=>'not',
b=>[2,3], 'b.op'=>'or',
c=>[4,5], 'c.op'=>'and',
d=>6, 'd.is_expr'=>1,
'summary.alt.lang.id' => 'blah',
});
is_deeply(normalize_schema('int'), [int => {}]);
is_deeply(normalize_schema('int*'), [int => {req=>1}]);
# XXX test prototype to catch common error
eval q(normalize_schema(int => min=>1)); ok($@);
subtest "extras" => sub {
is_deeply(normalize_schema([int=>{}, {}]), [int=>{}], "extras still accepted but removed");
dies_ok { normalize_schema([int=>{}, {def=>{}}]) } "extras must be empty";
};
DONE_TESTING:
done_testing;
|
