6 use Test::More tests => 64;
9 use_ok('Moose::Autobox');
14 my $VAR1; # for eval of dumps
19 ok(!$s->defined, '... got a undefined value');
22 ok($s->defined, '... got a defined value');
25 is($VAR1, 5 , '... eval of SCALAR->dump works');
28 is($s->perl, $s->dump, '... SCALAR->dump equals SCALAR->perl');
33 ok($f1->defined, '... created function');
35 my $f2 = eval { $f1->curry(1, 2, 3) };
36 ok($f2->defined, '... created curried function');
38 my $f3 = eval { $f1->rcurry(1, 2, 3) };
39 ok($f3->defined, '... created right-curried function');
44 '... got the right return value from the curried function');
49 '... got the right return value from the r-curried function');
51 ok((sub { 1 })->disjoin(sub { 0 })->(), '... disjoins properly');
52 ok((sub { 0 })->disjoin(sub { 1 })->(), '... disjoins properly');
54 ok(!(sub { 1 })->conjoin(sub { 0 })->(), '... conjoins properly');
55 ok(!(sub { 0 })->conjoin(sub { 1 })->(), '... conjoins properly');
57 my $compose = (sub { @_, 1 })->compose(sub { @_, 2 });
62 '... got the right return value for compose');
66 my $a = [ 4, 2, 6, 78, 101, 2, 3 ];
68 is($a->length, 7, '... got the right length');
69 ok($a->defined, '... got the right defined value');
72 $a->map(sub { $_ + 2 }),
73 [ map { $_ + 2 } (4, 2, 6, 78, 101, 2, 3) ],
74 '... got the right return value for map');
76 is_deeply($a, [ 4, 2, 6, 78, 101, 2, 3 ], '... original value is unchanged');
80 [ 3, 2, 101, 78, 6, 2, 4 ],
81 '... got the right return value for reverse');
83 is_deeply($a, [ 4, 2, 6, 78, 101, 2, 3 ], '... original value is unchanged');
86 $a->grep(sub { $_ < 50 }),
87 [ grep { $_ < 50 } (4, 2, 6, 78, 101, 2, 3) ],
88 '... got the right return value grep');
90 is_deeply($a, [ 4, 2, 6, 78, 101, 2, 3 ], '... original value is unchanged');
92 is($a->join(', '), '4, 2, 6, 78, 101, 2, 3', '... got the right joined string');
93 is($a->join, '4267810123', '... got the right joined string');
94 ok($a->exists(0), '... exists works');
95 ok(!$a->exists(10), '... exists works');
97 is($a->pop(), 3, '... got the right pop-ed value');
98 is_deeply($a, [ 4, 2, 6, 78, 101, 2 ], '... original value is now changed');
100 is($a->shift(), 4, '... got the right unshift-ed value');
101 is_deeply($a, [ 2, 6, 78, 101, 2 ], '... original value is now changed');
105 $a->slice([ 1, 2, 4 ]),
107 '... got the right sliced value');
111 [ 10, 2, 6, 78, 101, 2 ],
112 '... got the correct unshifted value');
115 $a->unshift(15, 20, 30),
116 [ 15, 20, 30, 10, 2, 6, 78, 101, 2 ],
117 '... got the correct unshifted value (multiple values)');
121 [ 15, 20, 30, 10, 2, 6, 78, 101, 2, 10 ],
122 '... got the correct pushed value');
125 $a->push(15, 20, 30),
126 [ 15, 20, 30, 10, 2, 6, 78, 101, 2, 10, 15, 20, 30 ],
127 '... got the correct pushed value (multiple values)');
130 $a->sort(sub { $_[0] <=> $_[1] }),
131 [ 2, 2, 6, 10, 10, 15, 15, 20, 20, 30, 30, 78, 101 ],
132 '... got the correct sorted value');
136 [ 15, 20, 30, 10, 2, 6, 78, 101, 2, 10, 15, 20, 30 ],
137 '... the original values are unchanged');
140 []->push(10, 20, 30)->map(sub { ($_, $_ + 5) })->reverse,
141 [ 35, 30, 25, 20, 15, 10 ],
142 '... got the correct chained value');
146 [ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 ],
151 [ 15, 20, 30, 10, 2, 6, 78, 101, 2, 10, 15, 20, 30 ],
156 [ [0, 15], [1, 20], [2, 30], [3, 10], [4, 2], [5, 6], [6, 78],
157 [7, 101], [8, 2], [9, 10], [10, 15], [11, 20], [12, 30] ],
160 is([1, 2, 3, 4, 5]->reduce(sub { $_[0] + $_[1] }), 15, '... got the right reduction');
163 [1, 2, 3, 4, 5]->zip([ 5, 4, 3, 2, 1 ]),
164 [ [1, 5], [2, 4], [3, 3], [4, 2], [5, 1] ],
165 '... got the right zip');
168 [1, 2, 3, 4, 5]->zip([ 6, 5, 4, 3, 2, 1 ]),
169 [ [1, 6], [2, 5], [3, 4], [4, 3], [5, 2], [undef, 1] ],
170 '... got the right zip');
172 is($a->delete(2), 30, '... got the value deleted');
175 [ 15, 20, undef, 10, 2, 6, 78, 101, 2, 10, 15, 20, 30 ],
176 '... the value is correctly deleted');
182 [ 15, 20, 30, 10, 2, 6, 78, 101, 2, 10, 15, 20, 30 ],
183 '... the value is correctly put');
187 [ 15, 20, 30, 10, 2, 6, 78, 101, 2, 10, 15, 20, 30 ],
188 '... the value is correctly dumped');
192 '... the value is correctly dumped with perl()' );
197 my $h = { one => 1, two => 2, three => 3 };
199 ok($h->defined, '... got the right defined value');
203 [ qw/one three two/ ],
212 $h->kv->sort(sub { $_[0]->[1] <=> $_[1]->[1] }),
213 [ ['one', 1], ['two', 2], ['three', 3] ],
216 ok($h->exists('two'), '... exists works');
217 ok(!$h->exists('five'), '... !exists works');
219 $h->put('four' => 4);
222 { one => 1, two => 2, three => 3, four => 4 },
223 '... got the value added correctly');
225 is($h->at('four'), 4, '... got the value at "four"');
230 { one => 1, two => 2, three => 3 },
231 '... got the value deleted correctly');
234 $h->merge({ three => 33, four => 44 }),
235 { one => 1, two => 2, three => 33, four => 44 },
236 '... got the hashes merged correctly');
240 { one => 1, two => 2, three => 3 },
241 '... the value is correctly dumped');
245 '... the value is correctly dumped with perl()' );
247 is_deeply( { one => 1, two => 2, three => 3 }->slice([qw/three one/]),
249 '... hash slices ok' );
251 is_deeply( { one => 1, two => 2, three => 3 }->hslice([qw/two three/]),
252 { two => 2, three => 3 },
253 '... hash hslices ok' );