20 lines
535 B
Plaintext
20 lines
535 B
Plaintext
general {
|
|
funcon-term:
|
|
initialise-giving
|
|
initialise-binding
|
|
sequential(
|
|
check-true is-equal(
|
|
match(false,pattern-unite(pattern-bind"a",pattern-bind"b")), {"a"|->false,"b"|->false}),
|
|
check-true is-equal(
|
|
match(false,pattern-unite(pattern-type booleans,pattern-bind"b")), {"b"|->false}),
|
|
else(
|
|
effect match(false,pattern-unite(pattern-bind"a",pattern-bind"a")),
|
|
print"OK"))
|
|
;
|
|
}
|
|
|
|
tests {
|
|
result-term: null-value;
|
|
standard-out: ["OK"];
|
|
}
|