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