Lines Matching refs:f1
100 set f1 [open |$tclsh_path r+]
101 puts $f1 "source $test_path/test.tcl"
102 puts $f1 "flush stdout"
103 flush $f1
106 set remote_env [send_cmd $f1 \
110 set remote_db [send_cmd $f1 "berkdb_open -env $remote_env $testfile"]
115 set ret [send_cmd $f1 "$remote_db get $k"]
119 set ret [send_cmd $f1 "$remote_db put $k $k$k"]
133 set ret [send_cmd $f1 "$remote_db put $k $data"]
144 set ret [send_cmd $f1 "$remote_db close"]
148 set ret [send_cmd $f1 "$remote_env close"]
150 close $f1