head	1.2;
access;
symbols
	RPM_4_2_1:1.1.1.5
	RPM_4_2:1.1.1.5
	RPM_4_1_1:1.1.1.5
	RPM_4_1:1.1.1.4
	RPM_4_0_5:1.1.1.3
	RPM_4_0_4:1.1.1.2
	RPM_4_0_3:1.1.1.1
	RPM:1.1.1;
locks; strict;
comment	@# @;


1.2
date	2008.01.02.09.58.58;	author rse;	state dead;
branches;
next	1.1;
commitid	z4cpSiAhOCXk5PLs;

1.1
date	2001.07.23.20.45.41;	author rse;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2001.07.23.20.45.41;	author rse;	state Exp;
branches;
next	1.1.1.2;

1.1.1.2
date	2002.01.08.01.46.19;	author rse;	state Exp;
branches;
next	1.1.1.3;

1.1.1.3
date	2003.01.18.13.49.10;	author rse;	state Exp;
branches;
next	1.1.1.4;

1.1.1.4
date	2001.10.15.03.47.28;	author rse;	state Exp;
branches;
next	1.1.1.5;

1.1.1.5
date	2003.01.18.14.05.14;	author rse;	state Exp;
branches;
next	;


desc
@@


1.2
log
@remove the ancient RPM 4.2.1 source tree copy
@
text
@# See the file LICENSE for redistribution information.
#
# Copyright (c) 1999-2001
#	Sleepycat Software.  All rights reserved.
#
# $Id: env008.tcl,v 1.1 2001/07/23 20:45:41 rse Exp $
#
# Test of env and subdirs.
proc env008 { } {
	global errorInfo
	global errorCode

	source ./include.tcl

	env_cleanup $testdir

	set subdir  1/1
	set subdir1 1/2
	file mkdir $testdir/$subdir $testdir/$subdir1
	set testfile $subdir/env.db

	puts "Env008: Test of environments and subdirectories."

	# Try opening without Create flag should error
	puts "\tEnv008.a: Create env and db."
	set env [berkdb env -create -mode 0644 -home $testdir -txn]
	error_check_good env [is_valid_env $env] TRUE

	puts "\tEnv008.b: Remove db in subdir."
	env008_db $env $testfile
	error_check_good dbremove:$testfile \
	    [berkdb dbremove -env $env $testfile] 0

	#
	# Rather than remaking the db every time for the renames
	# just move around the new file name to another new file
	# name.
	#
	puts "\tEnv008.c: Rename db in subdir."
	env008_db $env $testfile
	set newfile $subdir/new.db
	error_check_good dbrename:$testfile/.. \
	    [berkdb dbrename -env $env $testfile $newfile] 0
	set testfile $newfile

	puts "\tEnv008.d: Rename db to parent dir."
	set newfile $subdir/../new.db
	error_check_good dbrename:$testfile/.. \
	    [berkdb dbrename -env $env $testfile $newfile] 0
	set testfile $newfile

	puts "\tEnv008.e: Rename db to child dir."
	set newfile $subdir/env.db
	error_check_good dbrename:$testfile/.. \
	    [berkdb dbrename -env $env $testfile $newfile] 0
	set testfile $newfile

	puts "\tEnv008.f: Rename db to another dir."
	set newfile $subdir1/env.db
	error_check_good dbrename:$testfile/.. \
	    [berkdb dbrename -env $env $testfile $newfile] 0

	error_check_good envclose [$env close] 0
	puts "\tEnv008 complete."
}

proc env008_db { env testfile } {
	set db [berkdb_open -env $env -create -btree $testfile]
	error_check_good dbopen [is_valid_db $db] TRUE
	set ret [$db put key data]
	error_check_good dbput $ret 0
	error_check_good dbclose [$db close] 0
}
@


1.1
log
@Initial revision
@
text
@d6 1
a6 1
# $Id: env008.tcl,v 11.3 2001/01/25 18:23:04 bostic Exp $
@


1.1.1.1
log
@Import: RPM 4.0.3
@
text
@@


1.1.1.2
log
@Import: RPM 4.0.4
@
text
@d6 1
a6 1
# Id: env008.tcl,v 11.4 2001/08/03 16:39:24 bostic Exp 
d8 1
a8 2
# TEST	env008
# TEST	Test environments and subdirectories.
@


1.1.1.3
log
@Import: RPM 4.0.5
@
text
@d3 1
a3 1
# Copyright (c) 1999-2002
d6 1
a6 1
# Id: env008.tcl,v 11.6 2002/02/22 14:29:34 sandstro Exp 
d25 1
d27 1
a27 1
	set env [berkdb_env -create -mode 0644 -home $testdir -txn]
@


1.1.1.4
log
@Import: RPM 4.1
@
text
@d3 1
a3 1
# Copyright (c) 1999-2001
d6 1
a6 1
# Id: env008.tcl,v 11.4 2001/08/03 16:39:24 bostic Exp 
a24 1
	# Try opening without Create flag should error
d26 1
a26 1
	set env [berkdb env -create -mode 0644 -home $testdir -txn]
@


1.1.1.5
log
@Import: RPM 4.1.1
@
text
@d3 1
a3 1
# Copyright (c) 1999-2002
d6 1
a6 1
# Id: env008.tcl,v 11.6 2002/02/22 14:29:34 sandstro Exp 
d25 1
d27 1
a27 1
	set env [berkdb_env -create -mode 0644 -home $testdir -txn]
@