test/negation.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

Assert programNegation has program code {
    When /nobody/ is booping {
        set ::booping nope
        On unmatch {
            set ::booping nowpeopleare
        }
    }
}
Step
assert {$::booping eq "nope"}

Assert guy is booping
Step
assert {$::booping eq "nowpeopleare"}