proc log008 { { nhandles 100 } args } {
source ./include.tcl
set tnum "008"
puts "Log$tnum: Checkpoint test with records spanning log files."
env_cleanup $testdir
set envcmd "berkdb_env -create -txn -home $testdir"
puts "\tLog$tnum.a: Spawning child tclsh."
set pid [exec $tclsh_path $test_path/wrap.tcl \
log008script.tcl $testdir/log008script.log $nhandles &]
watch_procs $pid 3
puts "\tLog$tnum.b: Child is done."
puts "\tLog$tnum.c: Join abandoned child env with recovery."
set env [eval $envcmd -recover]
error_check_good env_close [$env close] 0
set errstrings [eval findfail $testdir/log008script.log]
foreach str $errstrings {
puts "FAIL: error message in log008 log file: $str"
}
}