Fixed problem with large keys over 65535 bytes.

[dbsrgits/DBM-Deep.git] / t / 10_largekeys.t

diff --git a/t/10_largekeys.t b/t/10_largekeys.t
index 2fe5811..d8d9472 100644 (file)
--- 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;