16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
namespace import ::tcltest::*
}
# Get common functions
if {[file exists [file join $path common.tcl]]} {
source [file join $path common.tcl]
}
set ::tcltest::testSingleFile false
set ::tcltest::testsDirectory [file dir [info script]]
# We should ensure that the testsDirectory is absolute.
# This was introduced in Tcl 8.3+'s tcltest, so we need a catch.
|
|
|
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
namespace import ::tcltest::*
}
# Get common functions
if {[file exists [file join $path common.tcl]]} {
source -encoding utf-8 [file join $path common.tcl]
}
set ::tcltest::testSingleFile false
set ::tcltest::testsDirectory [file dir [info script]]
# We should ensure that the testsDirectory is absolute.
# This was introduced in Tcl 8.3+'s tcltest, so we need a catch.
|