init commit again

IBAF-cbs/Funcons-beta/Values/Abstraction/Patterns/tests/match.config

@@ -0,0 +1,35 @@
+general {
+    funcon-term: 
+      initialise-giving
+      initialise-binding
+      sequential(
+        check-true is-equal(
+          match([],[]), map()),
+        check-true is-equal(
+          match([false],[pattern-bind"b"]), 
+          {"b"|->false}),
+        check-true is-equal(
+          match([false,true],[pattern-bind"a",pattern-bind"b"]), 
+          {"a"|->false,"b"|->true}),
+        check-true is-equal(
+          match(map(),map()), map()),
+        check-true is-equal(
+          match({"a"|->false,"b"|->true},{"b"|->pattern-bind"d","a"|->pattern-bind"c"}), 
+          {"c"|->false,"d"|->true}),
+        check-true is-equal(
+          match(true,true), map()),
+        else(
+          effect match([],[false]),
+          effect match([false],[false,false]), 
+          effect match([false,true],[pattern-bind"a",pattern-bind"a"]), 
+          effect match(map(),{"a"|->true}),
+          effect match({"b"|->true},{"b"|->pattern-any,"c"|->pattern-any}), 
+          effect match(false,true),
+          print"OK"))
+        ;
+}
+
+tests {
+    result-term: null-value;
+    standard-out: ["OK"];
+}