Lines Matching refs:env
8 # TEST Test DB_CONFIG config file options for berkdb env.
15 # TEST really env testing, but there's no better place to put it.
24 puts "Env007.a: Test berkdb env options using getters and stat."
28 # 0. Arg used in berkdb env command
30 # 2. Value assigned in berkdb env command
123 # First verify using just env args
125 set env [eval $e $envarg {$envval}]
126 error_check_good envopen:0 [is_valid_env $env] TRUE
127 error_check_good get_envval [eval $env $getter] $envval
136 env007_check $env $statcmd $statstr $statenvval
138 error_check_good envclose:0 [$env close] 0
145 set env [eval $e]
146 error_check_good envopen:1 [is_valid_env $env] TRUE
147 error_check_good get_configval1 [eval $env $getter] $configval
154 env007_check $env $statcmd $statstr $statconfigval
156 error_check_good envclose:1 [$env close] 0
158 # Now verify using env args and config args
160 set env [eval $e $envarg {$envval}]
161 error_check_good envopen:2 [is_valid_env $env] TRUE
163 error_check_good get_configval2 [eval $env $getter] $configval
165 env007_check $env $statcmd $statstr $statconfigval
167 error_check_good envclose:2 [$env close] 0
172 # to the file and make sure we can open the env. This execs
176 puts "\tEnv007.b: Test berkdb env config options using getters\
177 and env open."
247 if {[catch { eval $e } env ]} {
249 [is_substr $env $directmsg] == 1 } {
252 puts "FAIL: $env"
256 error_check_good envvalid:1 [is_valid_env $env] TRUE
257 error_check_good getter:1 [eval $env $getter] $getval
258 error_check_good envclose:1 [$env close] 0
261 puts "\tEnv007.c: Test berkdb env options using getters and env open."
263 # berkdb env. We always set -mpool.
305 # Set up env
306 set ret [catch {eval $e $envarg $envval} env]
309 # If the env open failed, it may be because we're on a
322 error_check_good env_open [is_valid_env $env] TRUE
325 set get_retval [eval $env $getter]
331 error_check_good envclose [$env close] 0
337 set env [eval berkdb_env -home $testdir\
340 [eval $env get_encrypt_flags] \
342 error_check_good envclose [$env close] 0
348 puts "\tEnv007.d: Test berkdb env options using set_flags and getters."
351 # $env set_flags.
368 # Set up env
369 set env [eval $e]
370 error_check_good envopen [is_valid_env $env] TRUE
372 # Use set_flags to turn on new env characteristics.
376 if {[catch { $env set_flags $flag on } res ]} {
379 error_check_good env_close [$env close] 0
383 error_check_good env_close [$env close] 0
391 set get_retval [eval $env get_flags]
394 error_check_good env_close [$env close] 0
397 # Use set_flags to turn off env characteristics, make sure
399 error_check_good "flag $flag off" [$env set_flags $flag off] 0
400 set get_retval [eval $env get_flags]
403 error_check_good env_close [$env close] 0
407 error_check_good envclose [$env close] 0
409 puts "\tEnv007.d1: Test berkdb env options using set_log_config and getters."
412 # $env log_config.
425 # Set up env
426 set env [eval $e]
427 error_check_good envopen [is_valid_env $env] TRUE
429 # Use set_flags to turn on new env characteristics.
433 if {[catch { $env log_config "$flag on" } res ]} {
436 error_check_good env_close [$env close] 0
440 error_check_good env_close [$env close] 0
448 set get_retval [eval $env log_get_config $flag]
451 error_check_good env_close [$env close] 0
454 # Use set_flags to turn off env characteristics, make sure
456 error_check_good "flag $flag off" [$env log_config "$flag off"] 0
457 set get_retval [eval $env log_get_config $flag]
460 error_check_good env_close [$env close] 0
464 error_check_good envclose [$env close] 0
467 puts "\tEnv007.e: Test env get_home."
469 # Set up env
470 set env [eval $e]
471 error_check_good env_open [is_valid_env $env] TRUE
473 set get_retval [eval $env get_home]
475 error_check_good envclose [$env close] 0
641 # 4. Additional flags needed in setting up env
666 set env [eval $e $envflag]
667 set db [eval $o -env $env $flag $flagval a.db]
674 error_check_good envclose [$env close] 0
678 proc env007_check { env statcmd statstr testval } {
679 set stat [$env $statcmd]