/[Sack]/trunk/t/Sack-Digest.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.t

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

revision 44 by dpavlin, Thu Sep 24 12:48:08 2009 UTC revision 45 by dpavlin, Thu Sep 24 13:37:53 2009 UTC
# Line 9  BEGIN { Line 9  BEGIN {
9          use_ok( 'Sack::Digest' );          use_ok( 'Sack::Digest' );
10  }  }
11    
12  ok( Sack::Digest->clean, 'clean' );  ok( my $o = Sack::Digest->new( port => 0, clean => 1 ), 'new' );
   
 ok( my $o = Sack::Digest->open( 0 ), 'open' );  
13    
14  my @full = qw( foo bar baz );  my @full = qw( foo bar baz );
15    
16  foreach my $full ( @full ) {  foreach my $full ( @full ) {
17    
18          ok( my $nr = Sack::Digest->to_int( $full ), "to_int $full" );          ok( my $nr = $o->to_int( $full ), "to_int $full" );
19          ok( $nr =~ m/^\d+$/, 'int' );          ok( $nr =~ m/^\d+$/, 'int' );
20    
21          cmp_ok( Sack::Digest->from_int( $nr ), 'eq', $full, "from_int $nr" );          cmp_ok( $o->from_int( $nr ), 'eq', $full, "from_int $nr" );
22    
23  }  }
24    
25  cmp_ok( Sack::Digest->from_int( 42 ), '==', 42, 'from_int missing' );  cmp_ok( $o->from_int( 42 ), '==', 42, 'from_int missing' );
26    
27  ok( Sack::Digest->info, 'info' );  ok( $o->info, 'info' );
28    
29  ok( Sack::Digest->sync, 'sync' );  ok( $o->sync, 'sync' );
30    
31  ok( Sack::Digest->close, 'close' );  ok( $o->close, 'close' );
32    
33  ok( Sack::Digest->open(0), 'open again' );  ok( $o->new( port => 0), 'new again' );
34    
35  my $out = {  my $out = {
36          "CR#+" => { 1=>1, 2=>1, 3=>1, 4=>1, 5=>1 }          "CR#+" => { 1=>1, 2=>1, 3=>1, 4=>1, 5=>1 }
37  };  };
38    
39  ok( my $full = Sack::Digest->undigest_out( $out ), 'undigest_out' );  ok( my $full = $o->undigest_out( $out ), 'undigest_out' );
40  diag dump $full;  diag dump $full;
41  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' );
42    
43  foreach ( 1 .. $#full + 1 ) {  foreach ( 1 .. $#full + 1 ) {
44          ok( my $undigested = Sack::Digest->undigest_node_k_v( 0, 'CR#+' => $_ ), "undigest_node_k_v $_" );          ok( my $undigested = $o->undigest_node_k_v( 0, 'CR#+' => $_ ), "undigest_node_k_v $_" );
45          diag "$_ -> $undigested";          diag "$_ -> $undigested";
46          cmp_ok( $undigested, 'eq', $full[$_-1], "undigested $_" )          cmp_ok( $undigested, 'eq', $full[$_-1], "undigested $_" )
47  }  }
48    
49    ok( $o->clean, 'clean' );
50    
Legend:
Removed from v.44  
changed lines
  Added in v.45
  ViewVC Help
Powered by ViewVC 1.1.26