From 02f0634ac29e19c68279e5544cac963e7f1203b8 Mon Sep 17 00:00:00 2001 From: Zhang Qiang Date: Tue, 29 May 2012 12:22:00 +0800 Subject: Sync source code from Tizen:Base --- test/rpc002.tcl | 161 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 161 insertions(+) create mode 100644 test/rpc002.tcl (limited to 'test/rpc002.tcl') 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 +} -- cgit v1.2.3