[tcl][db-x.x.x]

Berkeley DB のテストってどうなってんのかなーと思ったら　tcl　で書かれてた。

 12 proc dead003 { { procs "2 4 10" } {tests "ring clump" } } {
 13     source ./include.tcl
 14 
 15     set detects { oldest youngest }
 16     puts "Dead003: Deadlock detector tests: $detects"
 17 
 18     # Create the environment.
 19     foreach d $detects {
 20         env_cleanup $testdir
 21         puts "\tDead003.a: creating environment for $d"
 22         set env [berkdb env \
 23             -create -mode 0644 -home $testdir -lock -lock_detect $d]
 24         error_check_good lock_env:open [is_valid_env $env] TRUE
 25         error_check_good lock_env:close [$env close] 0

http://www.interq.or.jp/japan/s-imai/tcltk/basis.html
http://www.oracle.com/technology/software/products/berkeley-db/db/index.html