small fixes and a bunch of tests

Signed-off-by: Mattias Andrée <maandree@operamail.com>

16 files changed, 287 insertions, 0 deletions

diff --git a/test-files/mds-kbdc/make-tree/valid/assumption b/test-files/mds-kbdc/make-tree/valid/assumption
new file mode 100644
index 0000000..1be3caf
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/assumption
@@ -0,0 +1,7 @@
+assumption
+end assumption
+
+# (assumption (@ 1 0-10)
+#   (.inner nil)
+# )
+
diff --git a/test-files/mds-kbdc/make-tree/valid/assumption-filled b/test-files/mds-kbdc/make-tree/valid/assumption-filled
new file mode 100644
index 0000000..fbf8a3c
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/assumption-filled
@@ -0,0 +1,24 @@
+assumption
+  have " "
+  have <dead compose>
+  have_chars ",."
+  have_range "0" "9"
+end assumption
+
+# (assumption (@ 1 0-10)
+#   (.inner
+#     (have (@ 2 2-6)
+#       (.data
+#         (string (@ 2 7-10) ‘" "’)
+#       )
+#     )
+#     (have (@ 3 2-6)
+#       (.data
+#         (keys (@ 3 7-21) ‘<dead compose>’)
+#       )
+#     )
+#     (have_chars (@ 4 2-12) ‘",."’)
+#     (have_range (@ 5 2-12) ‘"0"’ ‘"9"’)
+#   )
+# )
+
diff --git a/test-files/mds-kbdc/make-tree/valid/break b/test-files/mds-kbdc/make-tree/valid/break
new file mode 100644
index 0000000..f6441ce
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/break
@@ -0,0 +1,4 @@
+break
+
+# (break (@ 1 0-5))
+
diff --git a/test-files/mds-kbdc/make-tree/valid/continue b/test-files/mds-kbdc/make-tree/valid/continue
new file mode 100644
index 0000000..0a7f39f
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/continue
@@ -0,0 +1,4 @@
+continue
+
+# (continue (@ 1 0-8))
+
diff --git a/test-files/mds-kbdc/make-tree/valid/function b/test-files/mds-kbdc/make-tree/valid/function
new file mode 100644
index 0000000..99b44f7
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/function
@@ -0,0 +1,15 @@
+function add/3
+  \add(\1 \add(\2 \3))
+end function
+
+# (function (@ 1 0-8) ‘add/3’
+#   (.inner
+#     (map (@ 2 2-2)
+#       (.sequence
+#         (keys (@ 2 2-22) ‘\add(\1 \add(\2 \3))’)
+#       )
+#       (.result nil)
+#     )
+#   )
+# )
+
diff --git a/test-files/mds-kbdc/make-tree/valid/if b/test-files/mds-kbdc/make-tree/valid/if
new file mode 100644
index 0000000..44ca203
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/if
@@ -0,0 +1,18 @@
+if \1
+  <letter \1> : "\1"
+end if
+
+# (if (@ 1 0-2) ‘\1’
+#   (.inner
+#     (map (@ 2 2-2)
+#       (.sequence
+#         (keys (@ 2 2-13) ‘<letter \1>’)
+#       )
+#       (.result
+#         (string (@ 2 16-20) ‘"\1"’)
+#       )
+#     )
+#   )
+#   (.otherwise nil)
+# )
+
diff --git a/test-files/mds-kbdc/make-tree/valid/if-else b/test-files/mds-kbdc/make-tree/valid/if-else
new file mode 100644
index 0000000..217f478
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/if-else
@@ -0,0 +1,29 @@
+if \1
+  <letter \1> : "\1"
+else
+  <letter \2> : "\2"
+end if
+
+# (if (@ 1 0-2) ‘\1’
+#   (.inner
+#     (map (@ 2 2-2)
+#       (.sequence
+#         (keys (@ 2 2-13) ‘<letter \1>’)
+#       )
+#       (.result
+#         (string (@ 2 16-20) ‘"\1"’)
+#       )
+#     )
+#   )
+#   (.otherwise nil
+#     (map (@ 4 2-2)
+#       (.sequence
+#         (keys (@ 4 2-13) ‘<letter \2>’)
+#       )
+#       (.result
+#         (string (@ 4 16-20) ‘"\2"’)
+#       )
+#     )
+#   )
+# )
+
diff --git a/test-files/mds-kbdc/make-tree/valid/if-else-if b/test-files/mds-kbdc/make-tree/valid/if-else-if
new file mode 100644
index 0000000..fe88c43
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/if-else-if
@@ -0,0 +1,36 @@
+if \1
+  <letter \1> : "\1"
+else
+  if \2
+    <letter \2> : "\2"
+  end if
+end if
+
+# (if (@ 1 0-2) ‘\1’
+#   (.inner
+#     (map (@ 2 2-2)
+#       (.sequence
+#         (keys (@ 2 2-13) ‘<letter \1>’)
+#       )
+#       (.result
+#         (string (@ 2 16-20) ‘"\1"’)
+#       )
+#     )
+#   )
+#   (.otherwise
+#     (if (@ 4 2-4) ‘\2’
+#       (.inner
+#         (map (@ 5 4-4)
+#           (.sequence
+#             (keys (@ 5 4-15) ‘<letter \2>’)
+#           )
+#           (.result
+#             (string (@ 5 18-22) ‘"\2"’)
+#           )
+#         )
+#       )
+#       (.otherwise nil)
+#     )
+#   )
+# )
+
diff --git a/test-files/mds-kbdc/make-tree/valid/if-elseif b/test-files/mds-kbdc/make-tree/valid/if-elseif
new file mode 100644
index 0000000..44d8d1f
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/if-elseif
@@ -0,0 +1,34 @@
+if \1
+  <letter \1> : "\1"
+else if \2
+  <letter \2> : "\2"
+end if
+
+# (if (@ 1 0-2) ‘\1’
+#   (.inner
+#     (map (@ 2 2-2)
+#       (.sequence
+#         (keys (@ 2 2-13) ‘<letter \1>’)
+#       )
+#       (.result
+#         (string (@ 2 16-20) ‘"\1"’)
+#       )
+#     )
+#   )
+#   (.otherwise
+#     (if (@ 3 3-7) ‘\2’
+#       (.inner
+#         (map (@ 4 4-4)
+#           (.sequence
+#             (keys (@ 4 4-15) ‘<letter \2>’)
+#           )
+#           (.result
+#             (string (@ 4 18-22) ‘"\2"’)
+#           )
+#         )
+#       )
+#       (.otherwise nil)
+#     )
+#   )
+# )
+
diff --git a/test-files/mds-kbdc/make-tree/valid/if-elseif-else b/test-files/mds-kbdc/make-tree/valid/if-elseif-else
new file mode 100644
index 0000000..461ebc7
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/if-elseif-else
@@ -0,0 +1,45 @@
+if \1
+  <letter \1> : "\1"
+else if \2
+  <letter \2> : "\2"
+else
+  <letter \3> : "\3"
+end if
+
+# (if (@ 1 0-2) ‘\1’
+#   (.inner
+#     (map (@ 2 2-2)
+#       (.sequence
+#         (keys (@ 2 2-13) ‘<letter \1>’)
+#       )
+#       (.result
+#         (string (@ 2 16-20) ‘"\1"’)
+#       )
+#     )
+#   )
+#   (.otherwise
+#     (if (@ 3 3-7) ‘\2’
+#       (.inner
+#         (map (@ 4 4-4)
+#           (.sequence
+#             (keys (@ 4 4-15) ‘<letter \2>’)
+#           )
+#           (.result
+#             (string (@ 4 18-22) ‘"\2"’)
+#           )
+#         )
+#       )
+#       (.otherwise
+#         (map (@ 6 4-4)
+#           (.sequence
+#             (keys (@ 6 4-15) ‘<letter \3>’)
+#           )
+#           (.result
+#             (string (@ 6 18-22) ‘"\3"’)
+#           )
+#         )
+#       )
+#     )
+#   )
+# )
+
diff --git a/test-files/mds-kbdc/make-tree/valid/if-if b/test-files/mds-kbdc/make-tree/valid/if-if
new file mode 100644
index 0000000..3a63615
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/if-if
@@ -0,0 +1,25 @@
+if \1
+  if \2
+    <letter \1> : "\2"
+  end if
+end if
+
+# (if (@ 1 0-2) ‘\1’
+#   (.inner
+#     (if (@ 2 2-4) ‘\1’
+#       (.inner
+#         (map (@ 3 4-4)
+#           (.sequence
+#             (keys (@ 3 4-15) ‘<letter \1>’)
+#           )
+#           (.result
+#             (string (@ 3 18-22) ‘"\2"’)
+#           )
+#         )
+#       )
+#       (.otherwise nil)
+#     )
+#   )
+#   (.otherwise nil)
+# )
+
diff --git a/test-files/mds-kbdc/make-tree/valid/include b/test-files/mds-kbdc/make-tree/valid/include
new file mode 100644
index 0000000..32dcdf2
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/include
@@ -0,0 +1,4 @@
+include "assumption-filled"
+
+# (include (@ 1 0-7) ‘"assumption-filled"’)
+
diff --git a/test-files/mds-kbdc/make-tree/valid/information b/test-files/mds-kbdc/make-tree/valid/information
new file mode 100644
index 0000000..1192eaf
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/information
@@ -0,0 +1,7 @@
+information
+end information
+
+# (information (@ 1 0-11)
+#   (.inner nil)
+# )
+
diff --git a/test-files/mds-kbdc/make-tree/valid/information-filled b/test-files/mds-kbdc/make-tree/valid/information-filled
new file mode 100644
index 0000000..69ce6dd
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/information-filled
@@ -0,0 +1,14 @@
+information
+  language "Language"       # test that the quotes ends where it should
+  country "Country"
+  variant "Variant"
+end information
+
+# (information (@ 1 0-11)
+#   (.inner
+#     (language (@ 2 2-10) ‘"Language"’)
+#     (country (@ 3 2-9) ‘"Country"’)
+#     (variant (@ 4 2-9) ‘"Variant"’)
+#   )
+# )
+
diff --git a/test-files/mds-kbdc/make-tree/valid/macro b/test-files/mds-kbdc/make-tree/valid/macro
new file mode 100644
index 0000000..151417b
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/macro
@@ -0,0 +1,17 @@
+macro identity/1
+  <letter \1> : "\1"
+end macro
+
+# (macro (@ 1 0-5) ‘identity/1’
+#   (.inner
+#     (map (@ 2 2-2)
+#       (.sequence
+#         (keys (@ 2 2-13) ‘<letter \1>’)
+#       )
+#       (.result
+#         (string (@ 2 16-20) ‘"\1"’)
+#       )
+#     )
+#   )
+# )
+
diff --git a/test-files/mds-kbdc/make-tree/valid/return b/test-files/mds-kbdc/make-tree/valid/return
new file mode 100644
index 0000000..eeee7fa
--- /dev/null
+++ b/test-files/mds-kbdc/make-tree/valid/return
@@ -0,0 +1,4 @@
+return
+
+# (return (@ 1 0-6))
+