diff options
Diffstat (limited to 'tiger-compiler/tests/desugar/desugar_eq_strcmp.tig')
| -rw-r--r-- | tiger-compiler/tests/desugar/desugar_eq_strcmp.tig | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/tiger-compiler/tests/desugar/desugar_eq_strcmp.tig b/tiger-compiler/tests/desugar/desugar_eq_strcmp.tig new file mode 100644 index 0000000..7500976 --- /dev/null +++ b/tiger-compiler/tests/desugar/desugar_eq_strcmp.tig @@ -0,0 +1,35 @@ +let + var left := "Bonjour" + var right := "Bonjour" +in + (if (left = right) then + print("Same") + else + print("Different"); + + if (left <> right) then + print("Different") + else + print("Same"); + + if (left > right) then + print("L > R") + else + print("L <= R"); + + if (left >= right) then + print("L => R") + else + print("L < R"); + + if (left < right) then + print("L < R") + else + print("L => R"); + + if (left <= right) then + print("L <= R") + else + print("L > R")) +end + |