From 59e2da485ea82fb1ee9f6f565ba5084c41f85143 Mon Sep 17 00:00:00 2001 From: Mattias Andrée Date: Mon, 17 Nov 2014 02:37:41 +0100 Subject: small fixes and a bunch of tests MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Mattias Andrée --- test-files/mds-kbdc/make-tree/valid/assumption | 7 ++++ .../mds-kbdc/make-tree/valid/assumption-filled | 24 ++++++++++++ test-files/mds-kbdc/make-tree/valid/break | 4 ++ test-files/mds-kbdc/make-tree/valid/continue | 4 ++ test-files/mds-kbdc/make-tree/valid/function | 15 ++++++++ test-files/mds-kbdc/make-tree/valid/if | 18 +++++++++ test-files/mds-kbdc/make-tree/valid/if-else | 29 ++++++++++++++ test-files/mds-kbdc/make-tree/valid/if-else-if | 36 +++++++++++++++++ test-files/mds-kbdc/make-tree/valid/if-elseif | 34 ++++++++++++++++ test-files/mds-kbdc/make-tree/valid/if-elseif-else | 45 ++++++++++++++++++++++ test-files/mds-kbdc/make-tree/valid/if-if | 25 ++++++++++++ test-files/mds-kbdc/make-tree/valid/include | 4 ++ test-files/mds-kbdc/make-tree/valid/information | 7 ++++ .../mds-kbdc/make-tree/valid/information-filled | 14 +++++++ test-files/mds-kbdc/make-tree/valid/macro | 17 ++++++++ test-files/mds-kbdc/make-tree/valid/return | 4 ++ 16 files changed, 287 insertions(+) create mode 100644 test-files/mds-kbdc/make-tree/valid/assumption create mode 100644 test-files/mds-kbdc/make-tree/valid/assumption-filled create mode 100644 test-files/mds-kbdc/make-tree/valid/break create mode 100644 test-files/mds-kbdc/make-tree/valid/continue create mode 100644 test-files/mds-kbdc/make-tree/valid/function create mode 100644 test-files/mds-kbdc/make-tree/valid/if create mode 100644 test-files/mds-kbdc/make-tree/valid/if-else create mode 100644 test-files/mds-kbdc/make-tree/valid/if-else-if create mode 100644 test-files/mds-kbdc/make-tree/valid/if-elseif create mode 100644 test-files/mds-kbdc/make-tree/valid/if-elseif-else create mode 100644 test-files/mds-kbdc/make-tree/valid/if-if create mode 100644 test-files/mds-kbdc/make-tree/valid/include create mode 100644 test-files/mds-kbdc/make-tree/valid/information create mode 100644 test-files/mds-kbdc/make-tree/valid/information-filled create mode 100644 test-files/mds-kbdc/make-tree/valid/macro create mode 100644 test-files/mds-kbdc/make-tree/valid/return (limited to 'test-files/mds-kbdc') 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 + 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) ‘’) +# ) +# ) +# (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 + : "\1" +end if + +# (if (@ 1 0-2) ‘\1’ +# (.inner +# (map (@ 2 2-2) +# (.sequence +# (keys (@ 2 2-13) ‘’) +# ) +# (.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 + : "\1" +else + : "\2" +end if + +# (if (@ 1 0-2) ‘\1’ +# (.inner +# (map (@ 2 2-2) +# (.sequence +# (keys (@ 2 2-13) ‘’) +# ) +# (.result +# (string (@ 2 16-20) ‘"\1"’) +# ) +# ) +# ) +# (.otherwise nil +# (map (@ 4 2-2) +# (.sequence +# (keys (@ 4 2-13) ‘’) +# ) +# (.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 + : "\1" +else + if \2 + : "\2" + end if +end if + +# (if (@ 1 0-2) ‘\1’ +# (.inner +# (map (@ 2 2-2) +# (.sequence +# (keys (@ 2 2-13) ‘’) +# ) +# (.result +# (string (@ 2 16-20) ‘"\1"’) +# ) +# ) +# ) +# (.otherwise +# (if (@ 4 2-4) ‘\2’ +# (.inner +# (map (@ 5 4-4) +# (.sequence +# (keys (@ 5 4-15) ‘’) +# ) +# (.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 + : "\1" +else if \2 + : "\2" +end if + +# (if (@ 1 0-2) ‘\1’ +# (.inner +# (map (@ 2 2-2) +# (.sequence +# (keys (@ 2 2-13) ‘’) +# ) +# (.result +# (string (@ 2 16-20) ‘"\1"’) +# ) +# ) +# ) +# (.otherwise +# (if (@ 3 3-7) ‘\2’ +# (.inner +# (map (@ 4 4-4) +# (.sequence +# (keys (@ 4 4-15) ‘’) +# ) +# (.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 + : "\1" +else if \2 + : "\2" +else + : "\3" +end if + +# (if (@ 1 0-2) ‘\1’ +# (.inner +# (map (@ 2 2-2) +# (.sequence +# (keys (@ 2 2-13) ‘’) +# ) +# (.result +# (string (@ 2 16-20) ‘"\1"’) +# ) +# ) +# ) +# (.otherwise +# (if (@ 3 3-7) ‘\2’ +# (.inner +# (map (@ 4 4-4) +# (.sequence +# (keys (@ 4 4-15) ‘’) +# ) +# (.result +# (string (@ 4 18-22) ‘"\2"’) +# ) +# ) +# ) +# (.otherwise +# (map (@ 6 4-4) +# (.sequence +# (keys (@ 6 4-15) ‘’) +# ) +# (.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 + : "\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) ‘’) +# ) +# (.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 + : "\1" +end macro + +# (macro (@ 1 0-5) ‘identity/1’ +# (.inner +# (map (@ 2 2-2) +# (.sequence +# (keys (@ 2 2-13) ‘’) +# ) +# (.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)) + -- cgit v1.2.3-70-g09d2