11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
lappend auto_path eskil.vfs/lib
package require tcltest 2.2
namespace import tcltest::*
tcltest::configure -verbose "body error"
#testConstraint knownbug 1
#tcltest::configure -match print-*
package require Tk
wm withdraw .
set ::eskil_testsuite 1
if {[file exists eskil.vfs/src/eskil.tcl_i]} {
|
>
>
>
>
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
lappend auto_path eskil.vfs/lib
package require tcltest 2.2
namespace import tcltest::*
tcltest::configure -verbose "body error"
#testConstraint knownbug 1
#tcltest::configure -match print-*
if {$argc > 0} {
eval tcltest::configure $argv
}
package require Tk
wm withdraw .
set ::eskil_testsuite 1
if {[file exists eskil.vfs/src/eskil.tcl_i]} {
|