diff options
Diffstat (limited to 'bdb/test/env010.tcl')
| -rw-r--r-- | bdb/test/env010.tcl | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/bdb/test/env010.tcl b/bdb/test/env010.tcl deleted file mode 100644 index 4444e34e439..00000000000 --- a/bdb/test/env010.tcl +++ /dev/null @@ -1,49 +0,0 @@ -# See the file LICENSE for redistribution information. -# -# Copyright (c) 1999-2002 -# Sleepycat Software. All rights reserved. -# -# $Id: env010.tcl,v 1.4 2002/02/20 17:08:21 sandstro Exp $ -# -# TEST env010 -# TEST Run recovery in an empty directory, and then make sure we can still -# TEST create a database in that directory. -proc env010 { } { - source ./include.tcl - - puts "Env010: Test of recovery in an empty directory." - - # Create a new directory used only for this test - - if { [file exists $testdir/EMPTYDIR] != 1 } { - file mkdir $testdir/EMPTYDIR - } else { - puts "\nDirectory already exists." - } - - # Do the test twice, for regular recovery and catastrophic - # Open environment and recover, but don't create a database - - foreach rmethod {recover recover_fatal} { - - puts "\tEnv010: Creating env for $rmethod test." - env_cleanup $testdir/EMPTYDIR - set e [berkdb_env -create -home $testdir/EMPTYDIR -$rmethod] - error_check_good dbenv [is_valid_env $e] TRUE - - # Open and close a database - # The method doesn't matter, so picked btree arbitrarily - - set db [eval {berkdb_open -env $e \ - -btree -create -mode 0644} ] - error_check_good dbopen [is_valid_db $db] TRUE - error_check_good db_close [$db close] 0 - - # Close environment - - error_check_good envclose [$e close] 0 - error_check_good berkdb:envremove \ - [berkdb envremove -home $testdir/EMPTYDIR] 0 - } - puts "\tEnv010 complete." -} |