diff options
| author | Lorry Tar Creator <lorry-tar-importer@baserock.org> | 2015-02-17 17:25:57 +0000 |
|---|---|---|
| committer | <> | 2015-03-17 16:26:24 +0000 |
| commit | 780b92ada9afcf1d58085a83a0b9e6bc982203d1 (patch) | |
| tree | 598f8b9fa431b228d29897e798de4ac0c1d3d970 /test/tcl/sdb018.tcl | |
| parent | 7a2660ba9cc2dc03a69ddfcfd95369395cc87444 (diff) | |
| download | berkeleydb-master.tar.gz | |
Diffstat (limited to 'test/tcl/sdb018.tcl')
| -rw-r--r-- | test/tcl/sdb018.tcl | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/test/tcl/sdb018.tcl b/test/tcl/sdb018.tcl index 206e9701..c096c210 100644 --- a/test/tcl/sdb018.tcl +++ b/test/tcl/sdb018.tcl @@ -1,6 +1,6 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 1999, 2012 Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 1999, 2015 Oracle and/or its affiliates. All rights reserved. # # $Id$ # @@ -33,9 +33,9 @@ proc sdb018 {method {nentries 100} args } { # If we are given an env, then skip this test. It needs its own. if { $eindex != -1 } { incr eindex - set env [lindex $args $eindex] - puts "Subdb016 skipping for env $env" - return + set env [lindex $args $eindex] + puts "Subdb018 skipping for env $env" + return } # In-memory dbs never go to disk, so we can't do checksumming. @@ -49,12 +49,17 @@ proc sdb018 {method {nentries 100} args } { berkdb srand $rand_init foreach opt {" -dup" " -dupsort"} { + append args $opt + if { [lsearch $args "-compress"] != -1 && $opt == " -dup" } { + puts "\tSubdb018: skip $opt loop with -compress." + continue + } env_cleanup $testdir set cache [expr 1024 * 1024 * 10] set env [berkdb_env -create -home $testdir \ -cachesize "0 $cache 1" ] - append args $opt + set oargs $args append oargs " -env $env" |