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
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
my $pkg;
BEGIN {
$pkg = 'Catmandu::Fix::index';
use_ok $pkg;
}
is_deeply $pkg->new('test', 'c')->fix({test => 'abcde'}), {test => '2'},
"index(abcde,c)";
is_deeply $pkg->new('test', 'c', 'multiple', 1)->fix({test => 'abcccde'}),
{test => [2, 3, 4]}, "index(abcccde,c)";
is_deeply $pkg->new('test.*', 'c')->fix({test => ['abcde', 'fgh']}),
{test => [2, -1]}, "index([abcde,fgh],c)";
is_deeply $pkg->new('test', 'bar')
->fix({test => ['foo', 'bar', 'bar', 'foo']}), {test => 1},
"index([foo,bar,bar,foo],c)";
is_deeply $pkg->new('test', 'bar', 'multiple', 1)
->fix({test => ['foo', 'bar', 'bar', 'foo']}), {test => [1, 2]},
"index([foo,bar,bar,foo],c, -multiple:1)";
done_testing 6;
|
