libdb/test/tcl/fop009.tcl

# See the file LICENSE for redistribution information.
#
# Copyright (c) 2011, 2012 Oracle and/or its affiliates.  All rights reserved.
#
# $Id$
#
# TEST	fop009
# TEST	Test file system operations in child transactions. 
# TEST	Combine two ops in one child transaction.
proc fop009 { method args } {

	# Run for btree only to cut down on redundant testing. 
	if { [is_btree $method] == 0 } {
		puts "Skipping fop009 for method $method"
		return
	}

	eval {fop001 $method 0 1} $args
}