trunk/t/Sack-Digest-BerkeleyDB.t

#!/usr/bin/perl

use Test::More tests => 29;
use Data::Dump qw(dump);

use lib 'lib';

BEGIN {
        use_ok( 'Sack::Digest::BerkeleyDB' );
}

ok( my $o = Sack::Digest::BerkeleyDB->new( port => 0, clean => 1 ), 'new' );

my @full = qw( foo bar baz );

foreach my $full ( @full ) {

        ok( my $nr = $o->to_int( $full ), "to_int $full" );
        ok( $nr =~ m/^\d+$/, 'int' );

        cmp_ok( $o->from_int( $nr ), 'eq', $full, "from_int $nr" );

}

cmp_ok( $o->from_int( 42 ), '==', 42, 'from_int missing' );

ok( $o->info, 'info' );

ok( $o->sync, 'sync' );

ok( $o->close, 'close' );

ok( $o->open, 'open' );

my $out = {
        "CR#+" => { 1=>1, 2=>1, 3=>1, 4=>1, 5=>1 }
};

ok( my $full = $o->undigest_out( $out ), 'undigest_out' );
diag dump $full;
is_deeply( $full, { "CR#+" => { 4 => 1, 5 => 1, bar => 1, baz => 1, foo => 1 } }, 'undigested' );

foreach ( 1 .. $#full + 1 ) {
        ok( my $undigested = $o->undigest_node_k_v( 0, 'CR#+' => $_ ), "undigest_node_k_v $_" );
        diag "$_ -> $undigested";
        cmp_ok( $undigested, 'eq', $full[$_-1], "undigested $_" )
}


ok( my $md5 = $o->lookup( nr_md5 => 1    ), 'lookup nr_md5' );
ok( my $nr  = $o->lookup( md5_nr => $md5 ), 'lookup md5_nr' );
ok( my $full = $o->lookup( md5   => $md5 ), 'lookup md5' );
cmp_ok( $nr, '==', 1, 'nr' );

ok( $o->clean, 'clean' );

1	#!/usr/bin/perl
2
3	use Test::More tests => 29;
4	use Data::Dump qw(dump);
5
6	use lib 'lib';
7
8	BEGIN {
9	use_ok( 'Sack::Digest::BerkeleyDB' );
10	}
11
12	ok( my $o = Sack::Digest::BerkeleyDB->new( port => 0, clean => 1 ), 'new' );
13
14	my @full = qw( foo bar baz );
15
16	foreach my $full ( @full ) {
17
18	ok( my $nr = $o->to_int( $full ), "to_int $full" );
19	ok( $nr =~ m/^\d+$/, 'int' );
20
21	cmp_ok( $o->from_int( $nr ), 'eq', $full, "from_int $nr" );
22
23	}
24
25	cmp_ok( $o->from_int( 42 ), '==', 42, 'from_int missing' );
26
27	ok( $o->info, 'info' );
28
29	ok( $o->sync, 'sync' );
30
31	ok( $o->close, 'close' );
32
33	ok( $o->open, 'open' );
34
35	my $out = {
36	"CR#+" => { 1=>1, 2=>1, 3=>1, 4=>1, 5=>1 }
37	};
38
39	ok( my $full = $o->undigest_out( $out ), 'undigest_out' );
40	diag dump $full;
41	is_deeply( $full, { "CR#+" => { 4 => 1, 5 => 1, bar => 1, baz => 1, foo => 1 } }, 'undigested' );
42
43	foreach ( 1 .. $#full + 1 ) {
44	ok( my $undigested = $o->undigest_node_k_v( 0, 'CR#+' => $_ ), "undigest_node_k_v $_" );
45	diag "$_ -> $undigested";
46	cmp_ok( $undigested, 'eq', $full[$_-1], "undigested $_" )
47	}
48
49
50	ok( my $md5 = $o->lookup( nr_md5 => 1 ), 'lookup nr_md5' );
51	ok( my $nr = $o->lookup( md5_nr => $md5 ), 'lookup md5_nr' );
52	ok( my $full = $o->lookup( md5 => $md5 ), 'lookup md5' );
53	cmp_ok( $nr, '==', 1, 'nr' );
54
55	ok( $o->clean, 'clean' );
56