[working commit]update test

diff --git a/scm/test/codegen/codegenExprTest.ml b/scm/test/codegen/codegenExprTest.ml
index 40ebfb2..a3812ba 100644 (file)
--- a/scm/test/codegen/codegenExprTest.ml
+++ b/scm/test/codegen/codegenExprTest.ml
@@ -57,7 +57,11 @@ let _ =
            ok [`PushTrue] @@
              bool true;
            ok [`PushFalse] @@
-             bool false)
+             bool false);
+       "array" >::
+        (fun () ->
+           ok [`NewArray 0] (`Array []);
+           ok [`PushByte 1; `PushByte 2; `NewArray 2] (`Array [int 1; int 2]););
      ];
      "if" >::
        (fun () ->

diff --git a/scm/test/filter/bindingTest.ml b/scm/test/filter/bindingTest.ml
index fc7977b..05b4a59 100644 (file)
--- a/scm/test/filter/bindingTest.ml
+++ b/scm/test/filter/bindingTest.ml
@@ -181,6 +181,12 @@ let _ =
         (fun () ->
            ok_e ( lambda ["x"; "y"] (var [] "x"));
            ok_e ( lambda ["x"; "y"] (var [] "y")));
+       "array" >::
+        (fun () ->
+           ok_e (let_ ["x", int 42] @@
+                   `Array [var [] "x"]);
+           ng_e (Unbound_var (qname [] "x")) @@
+             `Array [var [] "x"]);
      ];
      "binding" >::: [
        "expr" >::

diff --git a/scm/test/parser/lispTest.ml b/scm/test/parser/lispTest.ml
index 853340c..c5c1143 100644 (file)
--- a/scm/test/parser/lispTest.ml
+++ b/scm/test/parser/lispTest.ml
@@ -151,6 +151,12 @@ let _ =
            "#t";
          ok (expr (bool false))
            "#f");
+     "array" >::
+       (fun () ->
+         ok (expr (`Array []))
+           "(array)";
+         ok (expr (`Array [int 1; int 2; int 3]))
+           "(array 1 2 3)");
      "call" >::
        (fun () ->
          ok (expr (`Call [var [] "print"]))