test/tcl/test134.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  test134
   8 # TEST  Test cursor cleanup for sub databases.
   9
  10 proc test134 {method {nentries 1000} args} {
  11         source ./include.tcl
  12
  13         eval {test133 $method $nentries "134" 1} $args
  14
  15 }