init commit again

2023-11-01 09:29:33 +01:00
parent 448147e7da
commit d6c745207b
250 changed files with 15552 additions and 1 deletions
--- a/IBAF-cbs/Funcons-beta/Values/Composite/Maps/tests/map-lookup.config
+++ b/IBAF-cbs/Funcons-beta/Values/Composite/Maps/tests/map-lookup.config
@@ -0,0 +1,22 @@
+general {
+    funcon-term: 
+      initialise-giving finalise-failing 
+      sequential (
+      print map-lookup({1|->2}, 1),
+      print map-lookup({1|->2,3|->4}, 1),
+      print map-lookup({1|->2,3|->4}, 3),
+      else(
+      effect checked map-lookup(map(), 1),
+      effect checked map-lookup({1|->2}, 2),
+      effect checked map-lookup({1|->2,3|->4}, 2),
+      effect checked map-lookup({1|->2,3|->4}, 5),
+      print "OK"
+      )
+      )
+        ;
+}
+
+tests {
+    result-term: null-value;
+    standard-out: [2, 2, 4, "OK"];
+}