/[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 33 by dpavlin, Wed Sep 23 20:28:21 2009 UTC revision 34 by dpavlin, Wed Sep 23 21:47:32 2009 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2    
3  use Test::More tests => 4;  use Test::More tests => 14;
4    
5  use lib 'lib';  use lib 'lib';
6    
# Line 8  BEGIN { Line 8  BEGIN {
8          use_ok( 'Sack::Digest' );          use_ok( 'Sack::Digest' );
9  }  }
10    
11    ok( Sack::Digest->clean, 'clean' );
12    
13  ok( my $o = Sack::Digest->open( 0 ), 'open' );  ok( my $o = Sack::Digest->open( 0 ), 'open' );
14    
15  ok( my $nr = Sack::Digest->digest( 'foobar' ), 'digest' );  foreach my $full ( 'foo', 'bar', 'baz' ) {
16  ok( $nr =~ m/^\d+$/, 'int' );  
17            ok( my $nr = Sack::Digest->to_int( $full ), "to_int $full" );
18            ok( $nr =~ m/^\d+$/, 'int' );
19    
20            cmp_ok( Sack::Digest->from_int( $nr ), 'eq', $full, "from_int $nr" );
21    
22    }
23    
24    cmp_ok( Sack::Digest->from_int( 42 ), '==', 42, 'from_int missing' );
25    
26    ok( Sack::Digest->close, 'close' );
Legend:
Removed from v.33  
changed lines
  Added in v.34
  ViewVC Help
Powered by ViewVC 1.1.26