Lines Matching refs:f1
106 set f1 [open |$tclsh_path r+]
107 puts $f1 "source $test_path/test.tcl"
108 puts $f1 "flush stdout"
109 flush $f1
112 set remote_env [send_cmd $f1 \
116 set remote_db [send_cmd $f1 "berkdb_open -env $remote_env $testfile"]
121 set ret [send_cmd $f1 "$remote_db get $k"]
125 set ret [send_cmd $f1 "$remote_db put $k $k$k"]
139 set ret [send_cmd $f1 "$remote_db put $k $data"]
150 set ret [send_cmd $f1 "$remote_db close"]
154 set ret [send_cmd $f1 "$remote_env close"]
156 close $f1