blob: 95c0fe3627762a19f9fcc3741982f5e1e70a36c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
# Find and load the Jim tcltest wrapper
if {[catch {info version}]} {
# Tcl
source [file dirname [info script]]/../tcltest.tcl
} else {
# Jim
if {[exists env(TOPSRCDIR)]} {
set auto_path [list $env(TOPSRCDIR) {*}$auto_path]
}
package require tcltest
}
|