libdb/test/tcl/test129.tcl

# See the file LICENSE for redistribution information.
#
# Copyright (c) 2010, 2012 Oracle and/or its affiliates.  All rights reserved.
#
# $Id$
#
# TEST	test129
# TEST	Test database bulk update for duplicate database, with different
# TEST  configurations.
# TEST
# TEST	This is essentially test127 with the following configurations:
# TEST       * sub database.
# TEST       * bulk buffer pre-sort.

proc test129 {method { nentries 10000 } { ndups 5} args } {
	source ./include.tcl

	if  { [is_partition_callback $args] == 1 } {
		set nodump 1
	} else {
		set nodump 0
	}

	# Test using sub database.
	eval {test127 $method $nentries $ndups "129" 1 0} $args
	eval {verify_dir $testdir "" 1 0 $nodump}
	eval {salvage_dir $testdir "" 1}

	# Test with -sort_multiple.
	eval {test127 $method $nentries $ndups "129" 0 1} $args
	eval {verify_dir $testdir "" 1 0 $nodump}
	eval {salvage_dir $testdir "" 1}

	# Test using sub database, and with -sort_multiple.
	eval {test127 $method $nentries $ndups "129" 1 1} $args

}