X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F10_largekeys.t;h=d8d94729e9257b8fd772abb85a33732ea92b7d27;hb=2467cee7a6b37a43d7cdd5b8c9bad5352318f6c3;hp=2fe5811dcfc494838921152ecaedbf00d2ca2697;hpb=cf4a1344f9abac96f07d9645244d8dbfad2a873e;p=dbsrgits%2FDBM-Deep.git

diff --git a/t/10_largekeys.t b/t/10_largekeys.t
index 2fe5811..d8d9472 100644
--- a/t/10_largekeys.t
+++ b/t/10_largekeys.t
@@ -35,24 +35,27 @@ while ( my $dbm_maker = $dbm_factory->() ) {
     ok(
         ($test_key eq $key1) || 
         ($test_key eq $key2) || 
-        ($test_key eq $key3)
+        ($test_key eq $key3),
+        "First key found",
     );
 
     $test_key = $db->next_key($test_key);
     ok(
         ($test_key eq $key1) || 
         ($test_key eq $key2) || 
-        ($test_key eq $key3)
+        ($test_key eq $key3),
+        "Second key found",
     );
 
     $test_key = $db->next_key($test_key);
     ok(
         ($test_key eq $key1) || 
         ($test_key eq $key2) || 
-        ($test_key eq $key3)
+        ($test_key eq $key3),
+        "Third key found",
     );
 
     $test_key = $db->next_key($test_key);
-    ok( !$test_key );
+    ok( !$test_key, "No fourth key" );
 }
 done_testing;