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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
#!perl
use 5.010;
use strict;
use warnings;
use Perinci::Sub::Normalize qw(normalize_function_metadata);
use Test::Exception;
use Test::More 0.98;
subtest normalize_function_metadata => sub {
dies_ok { normalize_function_metadata({}) }
"doesn't accept v1.0";
dies_ok { normalize_function_metadata({v=>1.1, foo=>1}) }
"doesn't allow unknown properties";
is_deeply(normalize_function_metadata({v=>1.1, foo=>1}, {allow_unknown_properties=>1}),
{v=>1.1, foo=>1},
"unknown properties allowed when using allow_unknown_properties=1");
is_deeply(normalize_function_metadata({v=>1.1, args=>{}, "summary.alt.lang.id_ID"=>"tes"}),
{v=>1.1, args=>{}, "summary.alt.lang.id_ID"=>"tes"},
"properties and attributes not changed");
is_deeply(normalize_function_metadata({v=>1.1, args=>{a=>{schema=>"int"}, b=>{schema=>["str*"], cmdline_aliases=>{al1=>{schema=>"bool"}}} }, result=>{schema=>"array"}}),
{v=>1.1, args=>{a=>{schema=>["int",{}]}, b=>{schema=>["str",{req=>1}], cmdline_aliases=>{al1=>{schema=>[bool => {}]}}} }, result=>{schema=>["array",{}]}},
'sah schemas normalized');
is_deeply(normalize_function_metadata({v=>1.1, args=>{a=>{schema=>"int"}, b=>{schema=>["str*"]} }, result=>{schema=>"array"}}, {normalize_sah_schemas=>0}),
{v=>1.1, args=>{a=>{schema=>"int"}, b=>{schema=>["str*"]}}, result=>{schema=>"array"}},
'sah schemas not normalized when using normalize_sah_schemas=>0');
is_deeply(normalize_function_metadata({v=>1.1, _a=>1, "a._b"=>2, "_a.b"=>3, "_a._b"=>4}),
{v=>1.1, _a=>1, "a._b"=>2, "_a.b"=>3, "_a._b"=>4},
'internal properties and attributes not removed');
is_deeply(normalize_function_metadata({v=>1.1, _a=>1}, {remove_internal_properties=>1}),
{v=>1.1},
'internal properties removed when using remove_internal_properties=1');
subtest "arg submeta" => sub {
dies_ok { normalize_function_metadata({v=>1.1, args=>{a=>{meta=>{ }}}}) }
"doesn't accept v1.0";
dies_ok { normalize_function_metadata({v=>1.1, args=>{a=>{meta=>{ v=>1.1, foo=>1 }}}}) }
"doesn't allow unknown properties";
is_deeply(normalize_function_metadata({v=>1.1, args=>{a=>{meta=>{ v=>1.1, foo=>1 }}}}, {allow_unknown_properties=>1}),
{v=>1.1, args=>{a=>{meta=>{ v=>1.1, foo=>1 }}}},
"unknown properties allowed when using allow_unknown_properties=1");
is_deeply(normalize_function_metadata({v=>1.1, args=>{a=>{meta=>
{v=>1.1, args=>{a=>{schema=>"int"}, b=>{schema=>["str*"], cmdline_aliases=>{al1=>{schema=>"bool"}}} }, result=>{schema=>"array"}}
}}}),
{v=>1.1, args=>{a=>{meta=>
{v=>1.1, args=>{a=>{schema=>["int",{}]}, b=>{schema=>["str",{req=>1}], cmdline_aliases=>{al1=>{schema=>[bool => {}]}}} }, result=>{schema=>["array",{}]}},
}}},
'sah schemas normalized');
};
is_deeply(normalize_function_metadata({v=>1.1, summary=>"foo", "summary(id)" => "fu"}),
{v=>1.1, summary=>"foo", "summary.alt.lang.id"=>"fu"},
'normalize prop(LANG) to prop.alt.lang.LANG (DefHash 1.0.10)');
# regression in 0.10
dies_ok { normalize_function_metadata({v=>1.1, "summary (id)" => "fu"}) } "property/attribute name still checked after normalization of prop(LANG)";
subtest "check" => sub {
subtest "check args" => sub {
subtest "check args pos" => sub {
lives_ok { normalize_function_metadata({v=>1.1, args=>{a1=>{schema=>'int*', pos=>0}}}) }
'basics 1';
lives_ok { normalize_function_metadata({v=>1.1, args=>{ a1=>{schema=>'int*', pos=>0}, a2=>{schema=>'int*', pos=>1}, a3=>{schema=>'int*', pos=>2} }}) }
'basics 2';
lives_ok { normalize_function_metadata({v=>1.1, args=>{ a1=>{schema=>'int*', pos=>0}, a2=>{schema=>'int*', pos=>1, slurpy=>1} }}) }
'basics 3';
dies_ok { normalize_function_metadata({v=>1.1, args=>{a1=>{schema=>'int*', pos=>1}}}) }
'Missing argument with pos=0';
dies_ok { normalize_function_metadata({v=>1.1, args=>{a1=>{schema=>'int*', pos=>0}, a2=>{schema=>'int*', pos=>0}}}) }
'Duplicate position';
dies_ok { normalize_function_metadata({v=>1.1, args=>{a1=>{schema=>'int*', pos=>-1}}}) }
'Negative pos';
dies_ok { normalize_function_metadata({v=>1.1, args=>{a1=>{schema=>'int*', slurpy=>1}}}) }
'Slurpy without pos';
dies_ok { normalize_function_metadata({v=>1.1, args=>{a1=>{schema=>'int*', greedy=>1}}}) }
'greedy property still observed';
dies_ok { normalize_function_metadata({v=>1.1, args=>{a1=>{schema=>'int*', pos=>0, slurpy=>1}, a2=>{schema=>'int*', pos=>1, slurpy=>1}}}) }
'Multiple slurpies';
dies_ok { normalize_function_metadata({v=>1.1, args=>{a1=>{schema=>'int*', pos=>0, slurpy=>1}, a2=>{schema=>'int*', pos=>1}}}) }
'Clash between slurpy and pos';
};
};
};
};
DONE_TESTING:
done_testing();
|
