Add two passing tests

This commit is contained in:
Théophile Bastian 2018-02-16 01:58:24 +01:00
parent 450595ab57
commit a67b0ee1c3
4 changed files with 21 additions and 0 deletions

1
src/tests/multi_args.exp Normal file
View file

@ -0,0 +1 @@
42

View file

@ -0,0 +1,2 @@
let sum = fun x -> fun y -> x + y in
print(40 + 2)

View file

@ -0,0 +1,10 @@
0
0
0
0
0
0
0
0
0
0

View file

@ -0,0 +1,8 @@
let rec print_n = fun cur -> fun n ->
ifzero n - cur then
0
else
let x = print 0 in
print_n (cur + 1) n
in
print_n 0 10