Imported Upstream version 2.2.1

1 files changed, 4 insertions, 4 deletions

diff --git a/test/index5.test b/test/index5.test
index c8e94b3..7895391 100644
--- a/test/index5.test
+++ b/test/index5.test
@@ -36,11 +36,10 @@ db close
 testvfs tvfs
 tvfs filter xWrite
 tvfs script write_cb
-proc write_cb {xCall file handle iOfst} {
+proc write_cb {xCall file handle iOfst args} {
   if {[file tail $file]=="test.db"} {
     lappend ::write_list [expr $iOfst/1024]
   }
-  puts "$xCall $file $args"
 }
 
 do_test 1.2 {
@@ -65,11 +64,12 @@ do_test 1.3 {
     }
     set iPrev $iNext
   }
+  puts -nonewline \
+      " (forward=$nForward, back=$nBackward, noncontiguous=$nNoncont)"
 
-  expr {$nForward > $nBackward}
+  expr {$nForward > 2*($nBackward + $nNoncont)}
 } {1}
 db close
 tvfs delete
 
 finish_test
-