diff options
Diffstat (limited to 'test/tcl/test121.tcl')
| -rw-r--r-- | test/tcl/test121.tcl | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/test/tcl/test121.tcl b/test/tcl/test121.tcl index bfd17f52..144fd0ee 100644 --- a/test/tcl/test121.tcl +++ b/test/tcl/test121.tcl @@ -1,6 +1,6 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 2006, 2012 Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2006, 2015 Oracle and/or its affiliates. All rights reserved. # # $Id$ # @@ -41,6 +41,14 @@ proc test121 { method {tnum "121"} args } { set pageargs "" set args [split_pageargs $args pageargs] + # When native pagesize is small(like 512B on QNX), this test + # requires a large number of mutexes. + set mutexargs "" + set native_pagesize [get_native_pagesize] + if {$native_pagesize < 2048} { + set mutexargs "-mutex_set_max 40000" + } + # Create transactional env. Specifying -multiversion makes # all databases opened within the env -multiversion. @@ -52,9 +60,15 @@ proc test121 { method {tnum "121"} args } { set cachesize [expr 2 * 1024 * 1024] set max_locks 2000 set max_objects 2000 + # When native pagesize is small(like 512B on QNX), this test + # also requires more locks and lock objects. + if {$native_pagesize < 2048} { + set max_locks 5000 + set max_objects 5000 + } set env [eval {berkdb_env -create -cachesize "0 $cachesize 1"}\ -lock_max_locks $max_locks -lock_max_objects $max_objects\ - -txn -multiversion $encargs $pageargs -home $testdir] + -txn -multiversion $mutexargs $encargs $pageargs -home $testdir] error_check_good env_open [is_valid_env $env] TRUE # Open database. |