15 lines
296 B
Plaintext
15 lines
296 B
Plaintext
general {
|
|
funcon-term:
|
|
initialise-storing
|
|
sequential(
|
|
check-true is-equal(
|
|
current-value(allocate-initialised-variable(integers,42)),
|
|
42),
|
|
check-true is-equal(current-value(42), 42))
|
|
;
|
|
}
|
|
|
|
tests {
|
|
result-term: null-value;
|
|
}
|