peter/IBAFLang
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

init commit again

Browse Source
This commit is contained in:
Peter
2023-11-01 09:29:33 +01:00
parent 448147e7da
commit d6c745207b
250 changed files with 15552 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
IBAF-cbs/Funcons-beta/Computations/Normal/Linking/tests/follow-if-link.config Normal file
View File

@@ -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"];
}

18
IBAF-cbs/Funcons-beta/Computations/Normal/Linking/tests/follow-link.config Normal file
View File

@@ -0,0 +1,18 @@
general {
funcon-term:
initialise-linking
give(fresh-link(booleans),
sequential(
set-link(given, true),
print"OK",
if-true-else(
follow-link(given),
print"OK",
fail)))
;
}
tests {
result-term: null-value;
standard-out: ["OK", "OK"];
}

10
IBAF-cbs/Funcons-beta/Computations/Normal/Linking/tests/fresh-initialised-link.config Normal file
View File

@@ -0,0 +1,10 @@
general {
funcon-term:
initialise-linking
not is-equal(fresh-initialised-link(integers,42), fresh-initialised-link(integers,42))
;
}
tests {
result-term: true;
}

10
IBAF-cbs/Funcons-beta/Computations/Normal/Linking/tests/fresh-link.config Normal file
View File

@@ -0,0 +1,10 @@
general {
funcon-term:
initialise-linking
not is-equal(fresh-link(values), fresh-link(values))
;
}
tests {
result-term: true;
}

10
IBAF-cbs/Funcons-beta/Computations/Normal/Linking/tests/initialise-linking.config Normal file
View File

@@ -0,0 +1,10 @@
general {
funcon-term:
initialise-linking(print"OK")
;
}
tests {
result-term: null-value;
standard-out: ["OK"];
}

10
IBAF-cbs/Funcons-beta/Computations/Normal/Linking/tests/links.config Normal file
View File

@@ -0,0 +1,10 @@
general {
funcon-term:
initialise-linking
is-in-type(link(allocate-variable(values)), links)
;
}
tests {
result-term: true;
}

17
IBAF-cbs/Funcons-beta/Computations/Normal/Linking/tests/set-link.config Normal file
View File

@@ -0,0 +1,17 @@
general {
funcon-term:
initialise-linking
give(fresh-link(booleans),
sequential(
set-link(given, true),
print"OK",
else(
set-link(given,false),
print"OK")))
;
}
tests {
result-term: null-value;
standard-out: ["OK", "OK"];
}