Searched refs:prg (Results 1 – 4 of 4) sorted by relevance
72 proc launch_testfixture {{prg ""}} { argument74 if {$prg eq ""} { set prg [info nameofexec] }75 if {$prg eq ""} { set prg testfixture }76 if {[file tail $prg]==$prg} { set prg [file join . $prg] }77 set chan [open "|$prg tf_main.tcl" r+]
25 set prg [info nameofexec]26 if {$prg eq ""} {27 set prg [file join . testfixture]29 set chan [open "|$prg tf_main2.tcl" r+]
101 set prg [db eval "EXPLAIN $sql"]102 set idx [lsearch $prg OpenEphemeral]163 set prg [db eval "EXPLAIN $sql"]164 set idx [lsearch $prg OpenEphemeral]
114 set prg [lshift A]115 lappend P(threads) [list $name $count $prg]141 set prg [lindex $T 2]149 set program [string map [list %TEST% $prg %VARS% $vars] {192 set prg [lindex $T 2]