Tests: Js.eval_string and Js.js_expr

Author: vouillon

lib/tests/dune.inc

@@ -29,6 +29,16 @@
  (preprocess
   (pps ppx_js_internal ppx_expect)))
 
+(library
+ ;; lib/tests/test_eval.ml
+ (name test_eval_75)
+ (enabled_if true)
+ (modules test_eval)
+ (libraries js_of_ocaml unix)
+ (inline_tests (modes js wasm))
+ (preprocess
+  (pps ppx_js_internal ppx_expect)))
+
 (library
  ;; lib/tests/test_fun_call.ml
  (name test_fun_call_75)

lib/tests/test_eval.ml

@@ -0,0 +1,22 @@
+open Js_of_ocaml
+
+let check d = if d == 1 then print_endline "PASSED" else print_endline "FAILED"
+
+let%expect_test "eval_string" =
+  check (Js.Unsafe.eval_string "{x:1}");
+  (try
+     let _ = Js.Unsafe.eval_string "function f() {return 1} ()" in
+     print_endline "FAILED"
+   with _ -> print_endline "PASSED");
+  [%expect {|
+    PASSED
+    PASSED
+    |}]
+
+let%expect_test "js_expr" =
+  check Js.Unsafe.(get (js_expr "{x:1}") "x");
+  check (Js.Unsafe.js_expr "function f() {return 1} ()");
+  [%expect {|
+    PASSED
+    PASSED
+    |}]