8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
-
+
|
set testScript [file normalize [file join [pwd] [info script]]]
set testDir [file dirname $testScript]
lappend auto_path eskil.vfs/lib
package require tcltest 2.2
namespace import tcltest::*
tcltest::configure -verbose "body error"
tcltest::configure -verbose "body error" -singleproc 1
#testConstraint knownbug 1
#tcltest::configure -match print-*
if {$argc > 0} {
eval tcltest::configure $argv
}
|
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
-
-
+
-
-
+
-
-
+
+
|
set ::stubs {}
}
proc ExecEskil {args} {
return [exec ./eskil.kit {*}$args]
}
puts "Running Tests"
foreach test [glob -nocomplain $testDir/*.test] {
source $test
clearstub
}
|