init commit again
This commit is contained in:
@@ -0,0 +1,20 @@
|
||||
general {
|
||||
funcon-term:
|
||||
initialise-linking
|
||||
give(fresh-link(booleans),
|
||||
sequential(
|
||||
set-link(given, true),
|
||||
if-true-else(
|
||||
follow-if-link(given),
|
||||
if-true-else(
|
||||
is-equal(follow-if-link(42),42),
|
||||
print"OK",
|
||||
fail),
|
||||
fail)))
|
||||
;
|
||||
}
|
||||
|
||||
tests {
|
||||
result-term: null-value;
|
||||
standard-out: ["OK"];
|
||||
}
|
||||
Reference in New Issue
Block a user