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
|
use Test::More;
use strict; use warnings FATAL => 'all';
use Lowu;
my $arr = [ 1 .. 3 ];
cmp_ok $arr->get_or_else(0), '==', 1,
'boxed get_or_else existing element ok';
ok !$arr->get_or_else(3),
'boxed get_or_else nonexistant element without default';
cmp_ok $arr->get_or_else(3 => 'foo'), 'eq', 'foo',
'boxed get_or_else defaults to scalar ok';
my ($invoc, $pos);
cmp_ok $arr->get_or_else(3 => sub { ($invoc, $pos) = @_; 'foo' }),
'eq', 'foo',
'boxed get_or_else with coderef ok';
cmp_ok $invoc, '==', $arr,
'get_or_else coderef invocant ok';
cmp_ok $pos, '==', 3,
'get_or_else coderef index ok';
done_testing;
|
