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"
#testConstraint knownbug 1
#tcltest::configure -match print-*
if {$argc > 0} {
eval tcltest::configure $argv
}
|
|
|
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" -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
|
set ::stubs {}
}
proc ExecEskil {args} {
return [exec ./eskil.kit {*}$args]
}
puts "Running Tests"
foreach test [glob -nocomplain $testDir/*.test] {
source $test
clearstub
}
|
<
|
<
|
<
|
>
|
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
set ::stubs {}
}
proc ExecEskil {args} {
return [exec ./eskil.kit {*}$args]
}
tcltest::testsDirectory $testDir
tcltest::runAllTests
cleanupTestFile
tcltest::cleanupTests 1
exit
|