/[Sack]/trunk/t/Sack-Digest-BerkeleyDB.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/Sack-Digest-BerkeleyDB.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 43 by dpavlin, Thu Sep 24 12:13:41 2009 UTC revision 44 by dpavlin, Thu Sep 24 12:48:08 2009 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2    
3  use Test::More tests => 17;  use Test::More tests => 25;
4  use Data::Dump qw(dump);  use Data::Dump qw(dump);
5    
6  use lib 'lib';  use lib 'lib';
# Line 13  ok( Sack::Digest->clean, 'clean' ); Line 13  ok( Sack::Digest->clean, 'clean' );
13    
14  ok( my $o = Sack::Digest->open( 0 ), 'open' );  ok( my $o = Sack::Digest->open( 0 ), 'open' );
15    
16  foreach my $full ( 'foo', 'bar', 'baz' ) {  my @full = qw( foo bar baz );
17    
18    foreach my $full ( @full ) {
19    
20          ok( my $nr = Sack::Digest->to_int( $full ), "to_int $full" );          ok( my $nr = Sack::Digest->to_int( $full ), "to_int $full" );
21          ok( $nr =~ m/^\d+$/, 'int' );          ok( $nr =~ m/^\d+$/, 'int' );
# Line 24  foreach my $full ( 'foo', 'bar', 'baz' ) Line 26  foreach my $full ( 'foo', 'bar', 'baz' )
26    
27  cmp_ok( Sack::Digest->from_int( 42 ), '==', 42, 'from_int missing' );  cmp_ok( Sack::Digest->from_int( 42 ), '==', 42, 'from_int missing' );
28    
29    ok( Sack::Digest->info, 'info' );
30    
31    ok( Sack::Digest->sync, 'sync' );
32    
33  ok( Sack::Digest->close, 'close' );  ok( Sack::Digest->close, 'close' );
34    
35  ok( Sack::Digest->open(0), 'open again' );  ok( Sack::Digest->open(0), 'open again' );
# Line 36  ok( my $full = Sack::Digest->undigest_ou Line 42  ok( my $full = Sack::Digest->undigest_ou
42  diag dump $full;  diag dump $full;
43  is_deeply( $full, { "CR#+" => { 4 => 1, 5 => 1, bar => 1, baz => 1, foo => 1 } }, 'undigested' );  is_deeply( $full, { "CR#+" => { 4 => 1, 5 => 1, bar => 1, baz => 1, foo => 1 } }, 'undigested' );
44    
45    foreach ( 1 .. $#full + 1 ) {
46            ok( my $undigested = Sack::Digest->undigest_node_k_v( 0, 'CR#+' => $_ ), "undigest_node_k_v $_" );
47            diag "$_ -> $undigested";
48            cmp_ok( $undigested, 'eq', $full[$_-1], "undigested $_" )
49    }
50    
Legend:
Removed from v.43  
changed lines
  Added in v.44
  ViewVC Help
Powered by ViewVC 1.1.26