trunk/t/Sack-Digest.t

#!/usr/bin/perl

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

use lib 'lib';

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

ok( my $o = Sack::Digest->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 = Sack::Digest->new( port => 0), 'new again' );

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