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

MySQL数据库

开发平台:

Visual C++

  1. # See the file LICENSE for redistribution information.
  2. #
  3. # Copyright (c) 1998, 1999, 2000
  4. # Sleepycat Software.  All rights reserved.
  5. #
  6. # $Id: test040.tcl,v 11.3 2000/02/14 03:00:20 bostic Exp $
  7. #
  8. # DB Test 40 {access method}
  9. # DB_GET_BOTH functionality with off-page duplicates.
  10. proc test040 { method {nentries 10000} args} {
  11. # Test with off-page duplicates
  12. eval {test038 $method $nentries 20 40 -pagesize 512} $args
  13. # Test with multiple pages of off-page duplicates
  14. eval {test038 $method [expr $nentries / 10] 100 40 -pagesize 512} $args
  15. }