blob: 2314441c367add820346dd633f552daa6064f68e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# temporarily disabled
return
proc assert condition {
set s "{$condition}"
if {![uplevel 1 expr $s]} {
return -code error "assertion failed: $condition"
}
}
proc count condition {
llength [Statements::findMatches $condition]
}
Assert there is a cool thing
Assert there is a cool thing
Step
Retract there is a cool thing
Step
assert {[count [list there is a cool thing]] == 1}
|
