diff options
Diffstat (limited to 'test/tcl/test097.tcl')
| -rw-r--r-- | test/tcl/test097.tcl | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/test/tcl/test097.tcl b/test/tcl/test097.tcl index ed75cc62..d8caf2e2 100644 --- a/test/tcl/test097.tcl +++ b/test/tcl/test097.tcl @@ -1,6 +1,6 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 1996, 2012 Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 1996, 2015 Oracle and/or its affiliates. All rights reserved. # # $Id$ # @@ -29,9 +29,19 @@ proc test097 { method {ndbs 500} {nentries 400} args } { return } env_cleanup $testdir + + # When native pagesize is small(like 512B on QNX) and + # we are running with heap, we need extra mutexes + # for supporting recno file. + set mutexargs "" + set native_pagesize [get_native_pagesize] + if {$native_pagesize < 2048 && [is_heap $method]} { + set mutexargs "-mutex_set_max 40000" + } + set env [eval {berkdb_env -create -log_regionmax 256000 \ -pagesize 512 -cachesize { 0 1048576 1 } -txn} \ - -home $testdir $encargs] + -home $testdir $encargs $mutexargs] error_check_good dbenv [is_valid_env $env] TRUE if { [is_partitioned $args] == 1 } { |