/[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 53 by dpavlin, Thu Sep 24 19:21:55 2009 UTC revision 54 by dpavlin, Thu Sep 24 22:23:30 2009 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2    
3  use Test::More tests => 25;  use Test::More tests => 29;
4  use Data::Dump qw(dump);  use Data::Dump qw(dump);
5    
6  use lib 'lib';  use lib 'lib';
# Line 46  foreach ( 1 .. $#full + 1 ) { Line 46  foreach ( 1 .. $#full + 1 ) {
46          cmp_ok( $undigested, 'eq', $full[$_-1], "undigested $_" )          cmp_ok( $undigested, 'eq', $full[$_-1], "undigested $_" )
47  }  }
48    
49    
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  ok( $o->clean, 'clean' );  ok( $o->clean, 'clean' );
56    
Legend:
Removed from v.53  
changed lines
  Added in v.54
  ViewVC Help
Powered by ViewVC 1.1.26