开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > MySQL数据库 > 查看源码
test006.tcl
资源名称：mysql-3.23.35.tar.gz　[点击查看]
上传用户：tsgydb
上传日期：2007-04-14
资源大小：10674k
文件大小：3k
源码类别：

MySQL数据库

开发平台：

Visual C++

test006.tcl：源码内容
  1. # See the file LICENSE for redistribution information.
  2. #
  3. # Copyright (c) 1996, 1997, 1998, 1999, 2000
  4. # Sleepycat Software.  All rights reserved.
  5. #
  6. # $Id: test006.tcl,v 11.13 2000/08/25 14:21:54 sue Exp $
  7. #
  8. # DB Test 6 {access method}
  9. # Keyed delete test.
  10. # Create database.
  11. # Go through database, deleting all entries by key.
  12. proc test006 { method {nentries 10000} {reopen 0} {tnum 6} args} {
  13. source ./include.tcl
  15. set do_renumber [is_rrecno $method]
  16. set args [convert_args $method $args]
  17. set omethod [convert_method $method]
  19. if { $tnum < 10 } {
  20. set tname Test00$tnum
  21. set dbname test00$tnum
  22. } else {
  23. set tname Test0$tnum
  24. set dbname test0$tnum
  25. }
  26. puts -nonewline "$tname: $method ($args) "
  27. puts -nonewline "$nentries equal small key; medium data pairs"
  28. if {$reopen == 1} {
  29. puts " (with close)"
  30. } else {
  31. puts ""
  32. }
  34. # Create the database and open the dictionary
  35. set eindex [lsearch -exact $args "-env"]
  36. #
  37. # If we are using an env, then testfile should just be the db name.
  38. # Otherwise it is the test directory and the name.
  39. if { $eindex == -1 } {
  40. set testfile $testdir/$dbname.db
  41. set env NULL
  42. } else {
  43. set testfile $dbname.db
  44. incr eindex
  45. set env [lindex $args $eindex]
  46. }
  48. set pflags ""
  49. set gflags ""
  50. set txn ""
  51. set count 0
  52. if { [is_record_based $method] == 1 } {
  53.    append gflags " -recno"
  54. }
  56. # Here is the loop where we put and get each key/data pair
  58. cleanup $testdir $env
  59. set db [eval {berkdb_open 
  60.      -create -truncate -mode 0644} $args {$omethod $testfile}]
  61. error_check_good dbopen [is_valid_db $db] TRUE
  63. set did [open $dict]
  64. while { [gets $did str] != -1 && $count < $nentries } {
  65. if { [is_record_based $method] == 1 } {
  66. set key [expr $count + 1 ]
  67. } else {
  68. set key $str
  69. }
  71. set datastr [make_data_str $str]
  73. set ret [eval {$db put} 
  74.     $txn $pflags {$key [chop_data $method $datastr]}]
  75. error_check_good put $ret 0
  77. set ret [eval {$db get} $gflags {$key}]
  78. error_check_good "$tname: put $datastr got $ret" 
  79.     $ret [list [list $key [pad_data $method $datastr]]]
  80. incr count
  81. }
  82. close $did
  84. if { $reopen == 1 } {
  85. error_check_good db_close [$db close] 0
  87. set db [eval {berkdb_open} $args {$testfile}]
  88. error_check_good dbopen [is_valid_db $db] TRUE
  89. }
  91. # Now we will get each key from the DB and compare the results
  92. # to the original, then delete it.
  93. set count 0
  94. set did [open $dict]
  95. set key 0
  96. while { [gets $did str] != -1 && $count < $nentries } {
  97. if { $do_renumber == 1 } {
  98. set key 1
  99. } elseif { [is_record_based $method] == 1 } {
  100. incr key
  101. } else {
  102. set key $str
  103. }
  105. set datastr [make_data_str $str]
  107. set ret [eval {$db get} $gflags {$key}]
  108. error_check_good "$tname: get $datastr got $ret" 
  109.     $ret [list [list $key [pad_data $method $datastr]]]
  111. set ret [eval {$db del} $txn {$key}]
  112. error_check_good db_del:$key $ret 0
  113. incr count
  114. }
  115. close $did
  117. error_check_good db_close [$db close] 0
  118. }