1 |
#!/usr/bin/perl |
#!/usr/bin/perl |
2 |
|
|
3 |
use Test::More tests => 14; |
use Test::More tests => 14; |
4 |
|
use Data::Dump qw(dump); |
5 |
|
|
6 |
use lib 'lib'; |
use lib 'lib'; |
7 |
|
|
25 |
cmp_ok( Sack::Digest->from_int( 42 ), '==', 42, 'from_int missing' ); |
cmp_ok( Sack::Digest->from_int( 42 ), '==', 42, 'from_int missing' ); |
26 |
|
|
27 |
ok( Sack::Digest->close, 'close' ); |
ok( Sack::Digest->close, 'close' ); |
28 |
|
|
29 |
|
ok( Sack::Digest->open(0), 'open again' ); |
30 |
|
|
31 |
|
my $out = { |
32 |
|
"CR#+" => { 1=>1, 2=>1, 3=>1, 4=>1, 5=>1 } |
33 |
|
}; |
34 |
|
|
35 |
|
ok( my $full = Sack::Digest->undigest_out( $out ), 'undigest_out' ); |
36 |
|
diag dump $full; |
37 |
|
|