mirror of
https://github.com/berkeleydb/libdb.git
synced 2024-11-16 09:06:25 +00:00
29 lines
692 B
Tcl
29 lines
692 B
Tcl
# See the file LICENSE for redistribution information.
|
|
#
|
|
# Copyright (c) 2011, 2012 Oracle and/or its affiliates. All rights reserved.
|
|
#
|
|
# $Id$
|
|
#
|
|
# TEST test132
|
|
# TEST Test foreign database operations on sub databases and
|
|
# TEST in-memory databases.
|
|
|
|
proc test132 {method {nentries 1000} {ndups 5} args } {
|
|
source ./include.tcl
|
|
|
|
if { [is_partition_callback $args] == 1 } {
|
|
set nodump 1
|
|
} else {
|
|
set nodump 0
|
|
}
|
|
|
|
# Test using on-disk sub databases.
|
|
eval {test131 $method $nentries "132" $ndups 1 0} $args
|
|
eval {verify_dir $testdir "" 1 0 $nodump}
|
|
eval {salvage_dir $testdir "" 1}
|
|
|
|
# Test using in-memory databases.
|
|
eval {test131 $method $nentries "132" $ndups 0 1} $args
|
|
|
|
}
|
|
|