1 files changed, 75 insertions, 0 deletions
diff --git a/tests/expressions/show_expr_test.ml b/tests/expressions/show_expr_test.ml
new file mode 100644
index 0000000..aa07685
--- /dev/null
+++ b/tests/expressions/show_expr_test.ml
@@ -0,0 +1,75 @@
+open OUnit2
+
+open Functions
+let f_string = ScTypes.ReturnType.f_string
+
+let u = UTF8.from_utf8string
+
+let _msg ~expected ~result =
+    Printf.sprintf "Expected %s but got %s"
+    (UTF8.raw_encode expected)
+    (UTF8.raw_encode result)
+
+module M = BuildExpression.M(Show_expr.Show_Expr(Show_ref)(Show_type))
+
+let test_value_string e = begin
+  let buffer = UTF8.Buffer.create 16 in
+
+  let expected = u "This is a test string"
+  and result = M.string buffer; UTF8.Buffer.contents buffer in
+
+  assert_equal
+    ~msg:(_msg ~expected ~result)
+    expected result
+
+end
+
+let test_value_date e = begin
+
+  let buffer = UTF8.Buffer.create 16 in
+  let expected = u "1899/12/30"
+  and result = M.date0 buffer; UTF8.Buffer.contents buffer in
+
+    assert_equal
+    ~msg:(_msg ~expected ~result)
+    expected result
+end
+
+let test_evaluate0 e = begin
+  let buffer = UTF8.Buffer.create 16 in
+  let expected = u "true()"
+  and result = M.true0 buffer; UTF8.Buffer.contents buffer in
+  assert_equal
+    ~msg:(_msg ~expected ~result)
+    expected result
+end
+
+let test_evaluate3 e = begin
+  let buffer = UTF8.Buffer.create 16 in
+  let expected = u "register3(0;0;0)"
+  and result = M.f3 buffer; UTF8.Buffer.contents buffer in
+
+  assert_equal
+    ~msg:(_msg ~expected ~result)
+    expected result
+end
+
+let test_calln e = begin
+  let buffer = UTF8.Buffer.create 16 in
+  let expected = u "calln(0;1)"
+  and result = M.calln buffer; UTF8.Buffer.contents buffer in
+
+  assert_equal
+    ~msg:(_msg ~expected ~result)
+    expected result
+end
+
+let tests = "show_expr_test">::: [
+  "test_value_string"       >:: test_value_string;
+  "test_value_date"         >:: test_value_date;
+  "test_evaluate0"          >:: test_evaluate0;
+  "test_evaluate3"          >:: test_evaluate3;
+  "test_calln"              >:: test_calln;
+]
+
+