test/tcl/fop011.tcl

   1 # See the file LICENSE for redistribution information.
   2 #
   3 # Copyright (c) 2011, 2012 Oracle and/or its affiliates.  All rights reserved.
   4 #
   5 # $Id$
   6 #
   7 # TEST  fop011
   8 # TEST  Test file system operations in child transactions.
   9 # TEST  Combine two ops in one child transaction, with in-emory
  10 # TEST  databases.
  11 proc fop011 { method args } {
  12
  13         # Run for btree only to cut down on redundant testing.
  14         if { [is_btree $method] == 0 } {
  15                 puts "Skipping fop011 for method $method"
  16                 return
  17         }
  18
  19         eval {fop001 $method 1 1} $args
  20 }
  21
  22
  23