trunk/t/1-lookup.t

#!/usr/bin/perl -w

use strict;
use Test::More tests => 17;
use Test::Exception;
use blib;

use Data::Dumper;

BEGIN {
use_ok( 'WebPAC::Lookup' );
}

throws_ok { new WebPAC::Lookup( no_log => 1 ) } qr/lookup_file/, "new without lookup_file";

ok(my $lookup = new WebPAC::Lookup(
        lookup_file => 'conf/lookup/example.pm',
        filter => {
                'upper' => sub { return uc(shift); },
        },
), "new");

ok(my $regex = $lookup->regex, "regex");
diag "regex: $regex";

my $rec = {
        '000' => [ '001' ],
        '800' => [ 'foo' ],
        '900' => [ 'bar' ],
};

diag "testing WebPAC::Lookup own methods";

ok($lookup->add( $rec ), "add");

ok($lookup->{'_lookup_data'}, "{_lookup_data}");
ok($lookup->lookup_hash, "lookup_hash");

my $lookup_res = { 
        '800:foo' => [ 'bar' ],
        '000:001' => [ '001' ],
        '900:bar' => [ 'FOO', 'foo' ]
};

is_deeply($lookup_res, $lookup->{'_lookup_data'}, "lookup data");

foreach my $k (keys %{ $lookup_res }) {
        ok(my @l = $lookup->lookup("lookup{$k}"), "lookup{$k}");

        cmp_ok($#l, '==', $#{$lookup_res->{$k}}, "result size");

        is_deeply($lookup_res->{$k}, \@l, "result values");
}

diag "testing WebPAC::Lookup inherited methods";
1	dpavlin	3	#!/usr/bin/perl -w
2
3	dpavlin	4	use strict;
4	dpavlin	473	use Test::More tests => 17;
5	dpavlin	3	use Test::Exception;
6			use blib;
7
8	dpavlin	4	use Data::Dumper;
9
10	dpavlin	3	BEGIN {
11	dpavlin	4	use_ok( 'WebPAC::Lookup' );
12	dpavlin	3	}
13
14	dpavlin	31	throws_ok { new WebPAC::Lookup( no_log => 1 ) } qr/lookup_file/, "new without lookup_file";
15	dpavlin	3
16	dpavlin	5	ok(my $lookup = new WebPAC::Lookup(
17			lookup_file => 'conf/lookup/example.pm',
18			filter => {
19			'upper' => sub { return uc(shift); },
20			},
21			), "new");
22	dpavlin	4
23	dpavlin	12	ok(my $regex = $lookup->regex, "regex");
24			diag "regex: $regex";
25
26	dpavlin	4	my $rec = {
27			'000' => [ '001' ],
28			'800' => [ 'foo' ],
29			'900' => [ 'bar' ],
30			};
31
32	dpavlin	7	diag "testing WebPAC::Lookup own methods";
33
34	dpavlin	4	ok($lookup->add( $rec ), "add");
35
36	dpavlin	473	ok($lookup->{'_lookup_data'}, "{_lookup_data}");
37			ok($lookup->lookup_hash, "lookup_hash");
38	dpavlin	4
39			my $lookup_res = {
40			'800:foo' => [ 'bar' ],
41			'000:001' => [ '001' ],
42	dpavlin	5	'900:bar' => [ 'FOO', 'foo' ]
43	dpavlin	4	};
44
45	dpavlin	30	is_deeply($lookup_res, $lookup->{'_lookup_data'}, "lookup data");
46	dpavlin	4
47	dpavlin	7	foreach my $k (keys %{ $lookup_res }) {
48			ok(my @l = $lookup->lookup("lookup{$k}"), "lookup{$k}");
49
50			cmp_ok($#l, '==', $#{$lookup_res->{$k}}, "result size");
51
52			is_deeply($lookup_res->{$k}, \@l, "result values");
53			}
54
55			diag "testing WebPAC::Lookup inherited methods";