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

30
IBAF-cbs/Funcons-beta/Values/Composite/Lists/tests/lists.config Normal file
View File

@@ -0,0 +1,30 @@
general {
funcon-term: sequential (
check-true(is-equal(tuple list-elements list( ), tuple( )))
, check-true(is-equal(tuple list-elements list(1), tuple(1)))
, check-true(is-equal(tuple list-elements list(1,2,1,3), tuple(1,2,1,3)))
, check-true(is-equal(list-nil, list( )))
, check-true(is-equal(list-cons(1,list( )), list(1)))
, check-true(is-equal(list-cons(1,list(2,3)), list(1,2,3)))
, check-true(is-equal(list-head(list(1)), 1))
, check-true(is-equal(list-head(list(1,2,3)), 1))
, check-true(not is-value list-head(list( )))
, check-true(is-equal(list-tail(list(1)), list( )))
, check-true(is-equal(list-tail(list(1,2,3)), list(2,3)))
, check-true(not is-value list-tail(list( )))
, check-true(is-equal(list-append( ), list( )))
, check-true(is-equal(list-append(list( )), list( )))
, check-true(is-equal(list-append(list(1,2,3,4)), list(1,2,3,4)))
, check-true(is-equal(list-append(list(1,2), list(3,4)), list(1,2,3,4)))
, check-true(is-equal(list-append(list(1), list(2,3,4)), list(1,2,3,4)))
, check-true(is-equal(list-append(list( ), list(1,2,3,4)), list(1,2,3,4)))
, check-true(is-equal(list-append(list(1,2,3,4),list( )), list(1,2,3,4)))
, check-true(is-equal(list-append(list(1),list(2),list(3,4)), list(1,2,3,4)))
, print "OK"
);
}
tests {
result-term : null-value;
standard-out : ["OK"];
}