blob: 4444e34e43980696ad82c99318c7adfcfe6abe6a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
# 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."
}
|
