--- trunk/t/Sack-Digest.t	2009/09/24 20:14:27	53
+++ trunk/t/Sack-Digest.t	2009/09/24 22:23:30	54
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use Test::More tests => 25;
+use Test::More tests => 29;
 use Data::Dump qw(dump);
 
 use lib 'lib';
@@ -46,5 +46,11 @@
 	cmp_ok( $undigested, 'eq', $full[$_-1], "undigested $_" )
 }
 
+
+ok( my $md5 = $o->lookup( nr_md5 => 1    ), 'lookup nr_md5' );
+ok( my $nr  = $o->lookup( md5_nr => $md5 ), 'lookup md5_nr' );
+ok( my $full = $o->lookup( md5   => $md5 ), 'lookup md5' );
+cmp_ok( $nr, '==', 1, 'nr' );
+
 ok( $o->clean, 'clean' );