Sync source code from Tizen:BaseHEAD2.0_alphamaster2.0alpha1.0_post

1 files changed, 161 insertions, 0 deletions

diff --git a/test/rpc002.tcl b/test/rpc002.tcl
new file mode 100644
index 0000000..95164b8
--- /dev/null
+++ b/test/rpc002.tcl
@@ -0,0 +1,161 @@
+# Sel the file LICENSE for redistribution information.
+#
+# Copyright (c) 1999-2009 Oracle.  All rights reserved.
+#
+# $Id$
+#
+# TEST	rpc002
+# TEST	Test invalid RPC functions and make sure we error them correctly
+# TEST	Test server home directory error cases
+proc rpc002 { } {
+	global __debug_on
+	global __debug_print
+	global errorInfo
+	global rpc_svc
+	source ./include.tcl
+
+	set testfile "rpc002.db"
+	set home [file tail $rpc_testdir]
+	#
+	# First start the server.
+	#
+	puts "Rpc002: Error and Unsupported interface test"
+	puts "Rpc002: Using $rpc_svc"
+	set dpid [rpc_server_start]
+	puts "\tRpc002.a: Started server, pid $dpid"
+
+	#
+	# Wrap the whole test in a catch statement so we can still
+	# kill the rpc server even if the test fails.
+	#
+	set status [catch {
+		tclsleep 2
+		remote_cleanup $rpc_server $rpc_testdir $testdir
+
+		puts "\tRpc002.b: Unsupported env options"
+		#
+		# Test each "pre-open" option for env's.  These need to be
+		# tested on the 'berkdb_env' line.
+		#
+		set rlist {
+		{ "-data_dir $rpc_testdir"	"Rpc002.b0"}
+		{ "-log_buffer 512"		"Rpc002.b1"}
+		{ "-log_dir $rpc_testdir"	"Rpc002.b2"}
+		{ "-log_max 100"		"Rpc002.b3"}
+		{ "-lock_conflict {3 {0 0 0 0 0 1 0 1 1}}"	"Rpc002.b4"}
+		{ "-lock_detect default"	"Rpc002.b5"}
+		{ "-lock_max_locks 100"		"Rpc002.b6"}
+		{ "-lock_max_objects 100"	"Rpc002.b6"}
+		{ "-lock_max_lockers 100"	"Rpc002.b6"}
+		{ "-mpool_mmap_size 100"	"Rpc002.b7"}
+		{ "-shm_key 100"		"Rpc002.b9"}
+		{ "-tmp_dir $rpc_testdir"	"Rpc002.b10"}
+		{ "-txn_max 100"		"Rpc002.b11"}
+		{ "-txn_timestamp 100"		"Rpc002.b12"}
+		{ "-verbose {recovery on}"		"Rpc002.b13"}
+		}
+
+		set e "berkdb_env_noerr -create -mode 0644 -home $home \
+		    -server $rpc_server -client_timeout 10000 -txn"
+
+		foreach pair $rlist {
+			set cmd [lindex $pair 0]
+			set msg [lindex $pair 1]
+			puts "\t$msg: $cmd"
+
+			set stat [catch {eval $e $cmd} ret]
+			error_check_good $cmd $stat 1
+			error_check_good $cmd.err [is_substr $errorInfo \
+			    "Interface not supported by Berkeley DB RPC"] 1
+		}
+
+		#
+		# Open an env with all the subsystems (-txn implies all
+		# the rest)
+		#
+		puts "\tRpc002.c: Unsupported env related interfaces"
+		set env [eval {berkdb_env_noerr -create -mode 0644 -home $home \
+		    -server $rpc_server -client_timeout 10000 -txn}]
+		error_check_good envopen [is_valid_env $env] TRUE
+		set dbcmd "berkdb_open_noerr -create -btree -mode 0644 \
+		    -env $env $testfile"
+		set db [eval $dbcmd]
+		error_check_good dbopen [is_valid_db $db] TRUE
+
+		#
+		# Test each "post-open" option relating to envs, txns, locks,
+		# logs and mpools.
+		#
+		set rlist {
+		{ " lock_detect default"	"Rpc002.c0"}
+		{ " lock_get read 1 $env"	"Rpc002.c1"}
+		{ " lock_id"			"Rpc002.c2"}
+		{ " lock_stat"			"Rpc002.c3"}
+		{ " lock_vec 1 {get $env read}"	"Rpc002.c4"}
+		{ " log_archive"		"Rpc002.c5"}
+		{ " log_file {0 0}"		"Rpc002.c6"}
+		{ " log_flush"			"Rpc002.c7"}
+		{ " log_cursor"			"Rpc002.c8"}
+		{ " log_stat"			"Rpc002.c9"}
+		{ " mpool -create -pagesize 512"	"Rpc002.c10"}
+		{ " mpool_stat"			"Rpc002.c11"}
+		{ " mpool_sync {0 0}"		"Rpc002.c12"}
+		{ " mpool_trickle 50"		"Rpc002.c13"}
+		{ " txn_checkpoint -min 1"	"Rpc002.c14"}
+		{ " txn_stat"			"Rpc002.c15"}
+		}
+
+		foreach pair $rlist {
+			set cmd [lindex $pair 0]
+			set msg [lindex $pair 1]
+			puts "\t$msg: $cmd"
+
+			set stat [catch {eval $env $cmd} ret]
+			error_check_good $cmd $stat 1
+			error_check_good $cmd.err [is_substr $errorInfo \
+			    "Interface not supported by Berkeley DB RPC"] 1
+		}
+		error_check_good dbclose [$db close] 0
+
+		#
+		# The database operations that aren't supported are few
+		# because mostly they are the ones Tcl doesn't support
+		# either so we have no way to get at them.  Test what we can.
+		#
+		puts "\tRpc002.d: Unsupported database related interfaces"
+		#
+		# NOTE: the type of database doesn't matter, just use btree.
+		#
+		puts "\tRpc002.d0: -cachesize"
+		set dbcmd "berkdb_open_noerr -create -btree -mode 0644 \
+		    -env $env -cachesize {0 65536 0} $testfile"
+		set stat [catch {eval $dbcmd} ret]
+		error_check_good dbopen_cache $stat 1
+		error_check_good dbopen_cache_err [is_substr $errorInfo \
+		    "Interface not supported by Berkeley DB RPC"] 1
+
+		puts "\tRpc002.d1: Try to upgrade a database"
+		set stat [catch {eval {berkdb upgrade -env} $env $testfile} ret]
+		error_check_good dbupgrade $stat 1
+		error_check_good dbupgrade_err [is_substr $errorInfo \
+		    "Interface not supported by Berkeley DB RPC"] 1
+		error_check_good envclose [$env close] 0
+
+		puts "\tRpc002.e: Open env with unsupported home dir"
+		set stat [catch {eval {berkdb_env_noerr -create -mode 0644 \
+		    -home XXX -server $rpc_server -client_timeout 10000 \
+		    -txn}} ret]
+		error_check_good env2open $stat 1
+		error_check_good envfail [is_substr $ret "Home unrecognized"] 1
+
+		puts "\tRpc002.f: Open env with a NULL home dir"
+		set stat [catch {eval {berkdb_env_noerr -create -mode 0644 \
+		    -server $rpc_server -client_timeout 10000 -txn}} ret]
+		error_check_good env2open $stat 1
+		error_check_good envfail [is_substr $ret "Home unrecognized"] 1
+	} res]
+	if { $status != 0 } {
+		puts $res
+	}
+	tclkill $dpid
+}