diff options
| author | Mattias Andrée <maandree@operamail.com> | 2014-12-01 20:26:07 +0100 |
|---|---|---|
| committer | Mattias Andrée <maandree@operamail.com> | 2014-12-01 20:26:07 +0100 |
| commit | ff1b90a4f4aec4d374261adda460ddc1d83c5ddd (patch) | |
| tree | 356865160bad344c8c19b9c1d115d7574f75e005 /test-files/mds-kbdc/validate-tree/valid | |
| parent | mds-kbdc: add some test cases + fix issued with inclusion (diff) | |
| download | mds-ff1b90a4f4aec4d374261adda460ddc1d83c5ddd.tar.gz mds-ff1b90a4f4aec4d374261adda460ddc1d83c5ddd.tar.bz2 mds-ff1b90a4f4aec4d374261adda460ddc1d83c5ddd.tar.xz | |
mds-kbdc: m + more test cases
Signed-off-by: Mattias Andrée <maandree@operamail.com>
Diffstat (limited to 'test-files/mds-kbdc/validate-tree/valid')
7 files changed, 87 insertions, 0 deletions
diff --git a/test-files/mds-kbdc/validate-tree/valid/assumption b/test-files/mds-kbdc/validate-tree/valid/assumption new file mode 100644 index 0000000..b8db1af --- /dev/null +++ b/test-files/mds-kbdc/validate-tree/valid/assumption @@ -0,0 +1,18 @@ +assumption + have <space> + have_chars " " + have_range "a" "z" +end assumption + +# (assumption (@ 1 0-10) +# (.inner +# (have (@ 2 2-6) +# (.data +# (keys (@ 2 7-14) ‘<space>’) +# ) +# ) +# (have_chars (@ 3 2-12) ‘" "’) +# (have_range (@ 4 2-12) ‘"a"’ ‘"z"’) +# ) +# ) + diff --git a/test-files/mds-kbdc/validate-tree/valid/for-break b/test-files/mds-kbdc/validate-tree/valid/for-break new file mode 100644 index 0000000..2d726c3 --- /dev/null +++ b/test-files/mds-kbdc/validate-tree/valid/for-break @@ -0,0 +1,10 @@ +for 1 to 9 as \1 + break +end for + +# (for (@ 1 0-3) ‘1’ ‘9’ (.variable ‘\1’) +# (.inner +# (break (@ 2 2-7)) +# ) +# ) + diff --git a/test-files/mds-kbdc/validate-tree/valid/for-continue b/test-files/mds-kbdc/validate-tree/valid/for-continue new file mode 100644 index 0000000..a8424b8 --- /dev/null +++ b/test-files/mds-kbdc/validate-tree/valid/for-continue @@ -0,0 +1,10 @@ +for 1 to 9 as \1 + continue +end for + +# (for (@ 1 0-3) ‘1’ ‘9’ (.variable ‘\1’) +# (.inner +# (continue (@ 2 2-10)) +# ) +# ) + diff --git a/test-files/mds-kbdc/validate-tree/valid/for-for-end-break b/test-files/mds-kbdc/validate-tree/valid/for-for-end-break new file mode 100644 index 0000000..f910969 --- /dev/null +++ b/test-files/mds-kbdc/validate-tree/valid/for-for-end-break @@ -0,0 +1,15 @@ +for 1 to 9 as \1 + for 1 to 9 as \2 + end for + break +end for + +# (for (@ 1 0-3) ‘1’ ‘9’ (.variable ‘\1’) +# (.inner +# (for (@ 2 2-5) ‘1’ ‘9’ (.variable ‘\2’) +# (.inner nil) +# ) +# (break (@ 4 2-7)) +# ) +# ) + diff --git a/test-files/mds-kbdc/validate-tree/valid/function-return b/test-files/mds-kbdc/validate-tree/valid/function-return new file mode 100644 index 0000000..a534c37 --- /dev/null +++ b/test-files/mds-kbdc/validate-tree/valid/function-return @@ -0,0 +1,10 @@ +function f/0 + return +end function + +# (function (@ 1 0-8) ‘f/0’ +# (.inner +# (return (@ 2 2-8)) +# ) +# ) + diff --git a/test-files/mds-kbdc/validate-tree/valid/information b/test-files/mds-kbdc/validate-tree/valid/information new file mode 100644 index 0000000..9e2beac --- /dev/null +++ b/test-files/mds-kbdc/validate-tree/valid/information @@ -0,0 +1,14 @@ +information + language "" + country "" + variant "" +end information + +# (information (@ 1 0-11) +# (.inner +# (language (@ 2 2-10) ‘""’) +# (country (@ 3 2-9) ‘""’) +# (variant (@ 4 2-9) ‘""’) +# ) +# ) + diff --git a/test-files/mds-kbdc/validate-tree/valid/macro-return b/test-files/mds-kbdc/validate-tree/valid/macro-return new file mode 100644 index 0000000..e29786d --- /dev/null +++ b/test-files/mds-kbdc/validate-tree/valid/macro-return @@ -0,0 +1,10 @@ +macro m/0 + return +end macro + +# (macro (@ 1 0-5) ‘m/0’ +# (.inner +# (return (@ 2 2-8)) +# ) +# ) + |