diff options
| author | Mattias Andrée <maandree@operamail.com> | 2014-11-17 04:31:48 +0100 |
|---|---|---|
| committer | Mattias Andrée <maandree@operamail.com> | 2014-11-17 04:31:48 +0100 |
| commit | b43f83b8cd06dfbe0866685b31b6c4db41138776 (patch) | |
| tree | d870279f8a0d19ba09b398bab5cf29bf4043f204 /test | |
| parent | small fixes and a bunch of tests (diff) | |
| download | mds-b43f83b8cd06dfbe0866685b31b6c4db41138776.tar.gz mds-b43f83b8cd06dfbe0866685b31b6c4db41138776.tar.bz2 mds-b43f83b8cd06dfbe0866685b31b6c4db41138776.tar.xz | |
mds-kbdc: fix treeisation of if-statements
Signed-off-by: Mattias Andrée <maandree@operamail.com>
Diffstat (limited to '')
5 files changed, 156 insertions, 0 deletions
diff --git a/test-files/mds-kbdc/make-tree/valid/if-else b/test-files/mds-kbdc/make-tree/valid/if-else index 217f478..796f2bf 100644 --- a/test-files/mds-kbdc/make-tree/valid/if-else +++ b/test-files/mds-kbdc/make-tree/valid/if-else @@ -3,6 +3,7 @@ if \1 else <letter \2> : "\2" end if +<letter a> : "a" # (if (@ 1 0-2) ‘\1’ # (.inner @@ -26,4 +27,12 @@ end if # ) # ) # ) +# (map (@ 6 0-0) +# (.sequence +# (keys (@ 6 0-10) ‘<letter a>’) +# ) +# (.result +# (string (@ 6 13-16) ‘"a"’) +# ) +# ) diff --git a/test-files/mds-kbdc/make-tree/valid/if-elseif b/test-files/mds-kbdc/make-tree/valid/if-elseif index 44d8d1f..5a61010 100644 --- a/test-files/mds-kbdc/make-tree/valid/if-elseif +++ b/test-files/mds-kbdc/make-tree/valid/if-elseif @@ -3,6 +3,7 @@ if \1 else if \2 <letter \2> : "\2" end if +<letter a> : "a" # (if (@ 1 0-2) ‘\1’ # (.inner @@ -31,4 +32,12 @@ end if # ) # ) # ) +# (map (@ 6 0-0) +# (.sequence +# (keys (@ 6 0-10) ‘<letter a>’) +# ) +# (.result +# (string (@ 6 13-16) ‘"a"’) +# ) +# ) diff --git a/test-files/mds-kbdc/make-tree/valid/if-elseif-else b/test-files/mds-kbdc/make-tree/valid/if-elseif-else index 461ebc7..ece7744 100644 --- a/test-files/mds-kbdc/make-tree/valid/if-elseif-else +++ b/test-files/mds-kbdc/make-tree/valid/if-elseif-else @@ -5,6 +5,7 @@ else if \2 else <letter \3> : "\3" end if +<letter a> : "a" # (if (@ 1 0-2) ‘\1’ # (.inner @@ -42,4 +43,12 @@ end if # ) # ) # ) +# (map (@ 8 0-0) +# (.sequence +# (keys (@ 8 0-10) ‘<letter a>’) +# ) +# (.result +# (string (@ 8 13-16) ‘"a"’) +# ) +# ) diff --git a/test-files/mds-kbdc/make-tree/valid/if-elseif-elseif b/test-files/mds-kbdc/make-tree/valid/if-elseif-elseif new file mode 100644 index 0000000..81f59fb --- /dev/null +++ b/test-files/mds-kbdc/make-tree/valid/if-elseif-elseif @@ -0,0 +1,59 @@ +if \1 + <letter \1> : "\1" +else if \2 + <letter \2> : "\2" +else if \3 + <letter \3> : "\3" +end if +<letter a> : "a" + +# (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 +# (if (@ 5 3-7) ‘\3’ +# (.inner +# (map (@ 6 4-4) +# (.sequence +# (keys (@ 6 4-15) ‘<letter \3>’) +# ) +# (.result +# (string (@ 6 18-22) ‘"\3"’) +# ) +# ) +# ) +# (.otherwise nil) +# ) +# ) +# ) +# ) +# ) +# (map (@ 8 0-0) +# (.sequence +# (keys (@ 8 0-10) ‘<letter a>’) +# ) +# (.result +# (string (@ 8 13-16) ‘"a"’) +# ) +# ) + diff --git a/test-files/mds-kbdc/make-tree/valid/if-elseif-elseif-else b/test-files/mds-kbdc/make-tree/valid/if-elseif-elseif-else new file mode 100644 index 0000000..c4bbf5b --- /dev/null +++ b/test-files/mds-kbdc/make-tree/valid/if-elseif-elseif-else @@ -0,0 +1,70 @@ +if \1 + <letter \1> : "\1" +else if \2 + <letter \2> : "\2" +else if \3 + <letter \3> : "\3" +else + <letter \4> : "\4" +end if +<letter a> : "a" + +# (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 +# (if (@ 5 3-7) ‘\3’ +# (.inner +# (map (@ 6 4-4) +# (.sequence +# (keys (@ 6 4-15) ‘<letter \3>’) +# ) +# (.result +# (string (@ 6 18-22) ‘"\3"’) +# ) +# ) +# ) +# (.otherwise +# (map (@ 8 4-4) +# (.sequence +# (keys (@ 8 4-15) ‘<letter \4>’) +# ) +# (.result +# (string (@ 8 18-22) ‘"\4"’) +# ) +# ) +# ) +# ) +# ) +# ) +# ) +# ) +# (map (@ 10 0-0) +# (.sequence +# (keys (@ 10 0-10) ‘<letter a>’) +# ) +# (.result +# (string (@ 10 13-16) ‘"a"’) +# ) +# ) + |