proc hsearch { { nentries 1000 } } {
source ./include.tcl
puts "HSEARCH interfaces test: $nentries"
set t1 $testdir/t1
set t2 $testdir/t2
set t3 $testdir/t3
cleanup $testdir NULL
error_check_good hcreate [berkdb hcreate $nentries] 0
set did [open $dict]
set count 0
puts "\tHSEARCH.a: put/get loop"
while { [gets $did str] != -1 && $count < $nentries } {
set ret [berkdb hsearch $str $str enter]
error_check_good hsearch:enter $ret 0
set d [berkdb hsearch $str 0 find]
error_check_good hsearch:find $d $str
incr count
}
close $did
puts "\tHSEARCH.b: re-get loop"
set did [open $dict]
while { [gets $did str] != -1 && $count < $nentries } {
set d [berkdb hsearch $str 0 find]
error_check_good hsearch:find $d $str
incr count
}
close $did
error_check_good hdestroy [berkdb hdestroy] 0
}