mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-15 11:18:43 +00:00
Fixed bug in gcc invocation; added stdlib tests
This commit is contained in:
parent
faca5c6e0e
commit
369f80f7e8
11 changed files with 515 additions and 74 deletions
33
stdlib/regression/test03.expr
Normal file
33
stdlib/regression/test03.expr
Normal file
|
|
@ -0,0 +1,33 @@
|
|||
fun f (x) {
|
||||
return fun (y) {return x + y}
|
||||
}
|
||||
|
||||
write (compare (1, 2));
|
||||
write (compare (2, 1));
|
||||
write (compare (3, 3));
|
||||
write (compare (2, "abc"));
|
||||
write (compare ("abc", 2));
|
||||
write (compare ("abc", "abc"));
|
||||
write (compare ("ab", "abc"));
|
||||
write (compare ("abc", "ab"));
|
||||
write (compare ([], []));
|
||||
write (compare (A, A));
|
||||
write (compare (A, B));
|
||||
write (compare (B, A));
|
||||
write (compare (A (1), A (1, 1)));
|
||||
write (compare (A (1, 1), A (1)));
|
||||
|
||||
-- not stable: write (compare (f, f));
|
||||
-- not stable: write (compare (f, f(5)));
|
||||
-- not stable: write (compare (f(5), f));
|
||||
-- not stable: write (compare (f(5), f(5)));
|
||||
-- not stable: write (compare (f(5), f(6)));
|
||||
-- not stable: write (compare (f(6), f(5)));
|
||||
|
||||
write (compare ({1, 2, 3}, {1, 2, 3}));
|
||||
write (compare ({1, [2], [[3]]}, {1, [2], [[3]]}));
|
||||
write (compare ({1, [2], [[3]]}, {1, [2], [3]}));
|
||||
write (compare ({1, [2], [3]}, {1, [2], [[3]]}))
|
||||
|
||||
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue