1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#! /usr/bin/env tclsh
set workdir [file dirname [info script]]
# For TSMF
lappend auto_path [file join $workdir lib]
# For the Promise package
lappend auto_path [file join $workdir test-lib]
|
<
<
<
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#! /usr/bin/env tclsh
set workdir [file dirname [info script]]
# For TSMF
lappend auto_path [file join $workdir lib]
# For the TUAPI package
lappend auto_path [file join $workdir ..]
package require tsmf
# Create a new log directory for this run
set logdir [file join $workdir test-log]
|