Versionsnummer 3.5.0 für die Dokumentation
[kivitendo-erp.git] / t / request / flatten.t
1 use Test::More;
2 use Test::Deep qw(cmp_deeply);
3 use Data::Dumper;
4
5 use_ok 'SL::Request', qw(flatten unflatten);
6
7 use constant DEBUG => 0;
8
9 sub f ($$$) {
10   my $flat = flatten($_[0]);
11   print Dumper($flat) if DEBUG;
12
13   my $unflat = unflatten($flat);
14   print Dumper($unflat) if DEBUG;
15
16   cmp_deeply($flat, $_[1], $_[2] . " flatten");
17   cmp_deeply($unflat, $_[0], $_[2] . " unflatten");
18 }
19
20 f {
21   test => 1,
22   whut => 2
23 },
24 [
25   [ test => 1 ],
26   [ whut => 2 ],
27 ], 'simple case';
28
29 f { a => { b => 2 } },
30 [
31  [ 'a.b' => 2 ]
32 ], 'simple hash nesting';
33
34 f { a => [ 2,  4 ] },
35 [
36  [  'a[]' => 2 ],
37  [  'a[]' => 4 ],
38 ], 'simple array';
39
40 f { a => [ { c => 1, d => 2 }, { c => 3, d => 4 }, ] },
41 [
42   [ 'a[+].c', 1 ],
43   [ 'a[].d', 2 ],
44   [ 'a[+].c', 3 ],
45   [ 'a[].d', 4  ],
46 ], 'array of hashes';
47
48 f { a => [ { a => 1, b => 2 }, { a => 3, c => 4 }, ] },
49 [
50   [ 'a[+].a', 1 ],
51   [ 'a[].b', 2 ],
52   [ 'a[+].a', 3 ],
53   [ 'a[].c', 4  ],
54 ], 'array of hashes with not existing keys';
55
56
57 # tests from Hash::Flatten below
58 f {
59   'x' => 1,
60   'y' => {
61     'a' => 2,
62     'b' => {
63       'p' => 3,
64       'q' => 4
65     },
66   }
67 }, [
68  [ 'x'     => 1, ],
69  [ 'y.a'   => 2, ],
70  [ 'y.b.p' => 3, ],
71  [ 'y.b.q' => 4  ],
72 ], 'Hash::Flatten 1';
73
74
75 f {
76   'x' => 1,
77   '0' => {
78     '1' => 2,
79   },
80   'a' => [1,2,3],
81 },
82 [
83  ['0.1'  => 2, ],
84  ['a[]'  => 1, ],
85  ['a[]'  => 2, ],
86  ['a[]'  => 3, ],
87  ['x'    => 1, ],
88 ], 'Hash::Flatten 2 - weird keys and values';
89
90
91 f {
92   'x' => 1,
93   'ay' => {
94     'a' => 2,
95     'b' => {
96       'p' => 3,
97       'q' => 4
98     },
99   },
100   'y' => [
101     'a', 2,
102     {
103       'baz' => 'bum',
104     },
105   ]
106 },
107 [
108   [ 'ay.a'    => 2,       ],
109   [ 'ay.b.p'  => 3,       ],
110   [ 'ay.b.q'  => 4,       ],
111   [ 'x'       => 1,       ],
112   [ 'y[]'     => 'a',    ],
113   [ 'y[]'     => 2        ],
114   [ 'y[+].baz' => 'bum',  ],
115 ], 'Hash::Flatten 3 - mixed';
116
117 f {
118   'x' => 1,
119   'y' => [
120     [
121       'a', 'fool', 'is',
122     ],
123     [
124       'easily', [ 'parted', 'from' ], 'his'
125     ],
126     'money',
127   ]
128 },
129 [
130  [ 'x'        => 1,        ],
131  [ 'y[+][]'   => 'a',      ],
132  [ 'y[][]'    => 'fool',   ],
133  [ 'y[][]'    => 'is'      ],
134  [ 'y[+][]'   => 'easily', ],
135  [ 'y[][+][]' => 'parted', ],
136  [ 'y[][][]'  => 'from',   ],
137  [ 'y[][]'    => 'his',    ],
138  [ 'y[]'      => 'money',  ],
139 ], 'Hash::Flatten 4 - array nesting';
140
141 f {
142   'x' => 1,
143   'ay' => {
144     'a' => 2,
145     'b' => {
146       'p' => 3,
147       'q' => 4
148     },
149   },
150   's' => 'hey',
151   'y' => [
152     'a', 2, {
153       'baz' => 'bum',
154     },
155   ]
156 },
157 [
158   [ 'ay.a'     => 2,     ],
159   [ 'ay.b.p'   => 3,     ],
160   [ 'ay.b.q'   => 4,     ],
161   [ 's'        => 'hey', ],
162   [ 'x'        => 1,     ],
163   [ 'y[]'      => 'a',   ],
164   [ 'y[]'      => 2      ],
165   [ 'y[+].baz' => 'bum', ],
166 ], 'Hash::Flatten 5 - deep mix';
167
168 done_testing();