[ADD]cond test case

diff --git a/src/.ocamlinit b/src/.ocamlinit
index ec5d9b6..bea329d 100644 (file)
--- a/src/.ocamlinit
+++ b/src/.ocamlinit
@@ -15,6 +15,7 @@
 
 #load "ast.cmo";;
 #load "closuretrans.cmo";;
+#load "closTrans.cmo";;
 
 
 #load "parsec.cmo";;

diff --git a/test/test_lisp.ml b/test/test_lisp.ml
index 2245f72..1b7bd20 100644 (file)
--- a/test/test_lisp.ml
+++ b/test/test_lisp.ml
@@ -74,6 +74,14 @@ let _ =
        (fun () ->
          ok (result (If (Int 1,Int 2,Int 3))) @@ 
            Lisp.compile_string "(if 1 2 3)");
+     "cond" >::
+       (fun () ->
+         ok (result (If (Int 1,
+                         Int 2,
+                         If (Int 3,
+                             Int 4,
+                             Int 5)))) @@
+           Lisp.compile_string "(cond ([1] 2) ((3) 4) (else 5))");
      "let" >::
        (fun () ->
          ok (result (Let (["x",Int 1;"y",Int 2],Block [Var "x";Var "y"]))) @@