Ajout d'un nouveau système de tests, plus compact, et plus de tests aussi.
This commit is contained in:
@@ -1 +0,0 @@
|
||||
1+2+3+4*5*(6+7-8)
|
||||
@@ -1 +0,0 @@
|
||||
3+2*4
|
||||
@@ -1 +0,0 @@
|
||||
if (5+6=11) then (if 5-9=9 && 3+3=6 then 42 else 5+98) else 4*2
|
||||
@@ -1 +0,0 @@
|
||||
(fun x -> fun y -> fun x -> x+y*2) 0 19 4
|
||||
@@ -1 +0,0 @@
|
||||
let x=3 in (let y=x+2 in x+y)
|
||||
@@ -1 +0,0 @@
|
||||
4+5+(prInt 42+1)
|
||||
@@ -0,0 +1,8 @@
|
||||
1+2+3+4+5*(6+7-8)+7
|
||||
12+5*6
|
||||
if (5+6=11) then (if 5-9=9 && 3+3=6 then 33 else 53-11) else 33+54
|
||||
3+5+(prInt 33+1)
|
||||
let x=4 in (let y=x+3 in x*y+14)
|
||||
let x=prInt 33 in let x=25 in x+17
|
||||
let f=fun x -> x*2 in let x = 12 in f (f x -3)
|
||||
(fun x -> fun y -> fun x -> x+y*2) 0 19 4
|
||||
Executable
+8
@@ -0,0 +1,8 @@
|
||||
#!/bin/sh
|
||||
|
||||
while IFS="" read -r p || [ -n "$p" ]
|
||||
do
|
||||
echo "--------------------------------";
|
||||
echo "$p"
|
||||
echo "$p" | ./fouine;
|
||||
done < tests/tests.ml
|
||||
Reference in New Issue
Block a user