diff options
Diffstat (limited to 'tiger-compiler/tests/type/lower_than_nil.tig')
| -rw-r--r-- | tiger-compiler/tests/type/lower_than_nil.tig | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tiger-compiler/tests/type/lower_than_nil.tig b/tiger-compiler/tests/type/lower_than_nil.tig new file mode 100644 index 0000000..f53b0be --- /dev/null +++ b/tiger-compiler/tests/type/lower_than_nil.tig @@ -0,0 +1,20 @@ +let + type rec = { key : string, value : int } + var rec1 : rec := nil + var rec2 : rec := nil +in + if (rec1 < rec2) then + print("lower"); + + if (rec1 <= rec2) then + print("lower or equal"); + + if (rec1 = rec2) then + print("equal"); + + if (rec1 >= rec2) then + print("higher or equal"); + + if (rec1 > rec2) then + print("higher") +end |