sdb009.tcl
上传用户:tsgydb
上传日期:2007-04-14
资源大小:10674k
文件大小:2k
源码类别:

MySQL数据库

开发平台:

Visual C++

  1. # See the file LICENSE for redistribution information.
  2. #
  3. # Copyright (c) 2000
  4. # Sleepycat Software.  All rights reserved.
  5. #
  6. # $Id: sdb009.tcl,v 11.4 2000/08/25 14:21:53 sue Exp $
  7. #
  8. # Subdatabase Test 9 (replacement)
  9. # Test the DB->rename method.
  10. proc subdb009 { method args } {
  11. global errorCode
  12. source ./include.tcl
  13. set omethod [convert_method $method]
  14. set args [convert_args $method $args]
  15. puts "Subdb009: $method ($args): Test of DB->rename()"
  16. if { [is_queue $method] == 1 } {
  17. puts "tSubdb009: Skipping for method $method."
  18. return
  19. }
  20. set file $testdir/subdb009.db
  21. set oldsdb OLDDB
  22. set newsdb NEWDB
  23. # Make sure we're starting from a clean slate.
  24. cleanup $testdir NULL
  25. error_check_bad "$file exists" [file exists $file] 1
  26. puts "tSubdb009.a: Create/rename file"
  27. puts "ttSubdb009.a.1: create"
  28. set db [eval {berkdb_open -create -mode 0644}
  29.     $omethod $args $file $oldsdb]
  30. error_check_good dbopen [is_valid_db $db] TRUE
  31. # The nature of the key and data are unimportant; use numeric key
  32. # so record-based methods don't need special treatment.
  33. set key 1
  34. set data [pad_data $method data]
  35. error_check_good dbput [$db put $key $data] 0
  36. error_check_good dbclose [$db close] 0
  37. puts "ttSubdb009.a.2: rename"
  38. error_check_good rename_file [eval {berkdb dbrename} $file 
  39.     $oldsdb $newsdb] 0
  40. puts "ttSubdb009.a.3: check"
  41. # Open again with create to make sure we've really completely
  42. # disassociated the subdb from the old name.
  43. set odb [eval {berkdb_open -create -mode 0644}
  44.     $omethod $args $file $oldsdb]
  45. error_check_good odb_open [is_valid_db $odb] TRUE
  46. set odbt [$odb get $key]
  47. error_check_good odb_close [$odb close] 0
  48. set ndb [eval {berkdb_open -create -mode 0644}
  49.     $omethod $args $file $newsdb]
  50. error_check_good ndb_open [is_valid_db $ndb] TRUE
  51. set ndbt [$ndb get $key]
  52. error_check_good ndb_close [$ndb close] 0
  53. # The DBT from the "old" database should be empty, not the "new" one.
  54. error_check_good odbt_empty [llength $odbt] 0
  55. error_check_bad ndbt_empty [llength $ndbt] 0
  56. error_check_good ndbt [lindex [lindex $ndbt 0] 1] $data
  57. # Now there's both an old and a new.  Rename the "new" to the "old"
  58. # and make sure that fails.
  59. puts "tSubdb009.b: Make sure rename fails instead of overwriting"
  60. set ret [catch {eval {berkdb dbrename} $file $oldsdb $newsdb} res]
  61. error_check_bad rename_overwrite $ret 0
  62. error_check_good rename_overwrite_ret [is_substr $errorCode EEXIST] 1
  63. puts "tSubdb009 succeeded."
  64. }