tests: add tests for issue 21

Author: darwin

test/src/arena/oops/arena.clj

@@ -6,6 +6,9 @@
   [(make-build file "core" (get-key-mode-options :core))
    (make-build file "goog" (get-key-mode-options :goog))])
 
+(defn make-simple-build [file]
+  [(make-build file "core" {})])
+
 (def all-builds
   (concat
     (make-build-variants "oget_static.cljs")
@@ -25,7 +28,9 @@
      (make-build "gcall_dev.cljs" "" {} {:optimizations :whitespace})
      (make-build "warnings.cljs" "dev" {} {:optimizations :whitespace})
      (make-build "error_static_nil_object.cljs" "dev" {:static-nil-target-object :error} {:optimizations :whitespace})
-     (make-build "error_dynamic_selector_usage.cljs" "dev" {:dynamic-selector-usage :error} {:optimizations :whitespace})]))
+     (make-build "error_dynamic_selector_usage.cljs" "dev" {:dynamic-selector-usage :error} {:optimizations :whitespace})]
+    ; issues
+    (make-simple-build "issue_21.cljs")))
 
 ; -- tests ------------------------------------------------------------------------------------------------------------------
 

test/src/arena/oops/arena/issue_21.cljs

@@ -0,0 +1,22 @@
+(ns oops.arena.issue-21
+  "https://github.com/binaryage/cljs-oops/issues/21"
+  (:require [oops.core :refer [oget oset! ocall! oapply!]]
+            [oops.tools :refer [init-arena-test! done-arena-test! testing]]))
+
+(init-arena-test!)
+
+(set! *warn-on-infer* true)
+
+(testing "exercise oget with *warn-on-infer* enabled"
+  (oget js/document :foo))
+
+(testing "exercise oset! with *warn-on-infer* enabled"
+  (oset! js/document :test-issue-21 "foo"))
+
+(testing "exercise ocall! with *warn-on-infer* enabled"
+  (ocall! js/document :getElementById "foo"))
+
+(testing "exercise oapply! with *warn-on-infer* enabled"
+  (oapply! js/document :getElementById ["foo"]))
+
+(done-arena-test!)

test/transcripts/expected/issue_21_core.js

@@ -0,0 +1,45 @@
+// js-beautify v1.8.8
+// ----------------------------------------------------------------------------------------------------------
+// COMPILER CONFIG:
+//   arena/issue_21.cljs [core]
+//   {:elide-asserts true,
+//    :external-config
+//    #:devtools{:config {:silence-optimizations-warning true}},
+//    :main oops.arena.issue-21,
+//    :optimizations :advanced,
+//    :output-dir "test/resources/.compiled/issue-21-core/_workdir",
+//    :output-to "test/resources/.compiled/issue-21-core/main.js",
+//    :pseudo-names true}
+// ----------------------------------------------------------------------------------------------------------
+
+// SNIPPET #1:
+//   (testing "exercise oget with *warn-on-infer* enabled"
+//     (oget js/document :foo))
+// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+// SNIPPET #2:
+//   (testing "exercise oset! with *warn-on-infer* enabled"
+//     (oset! js/document :test-issue-21 "foo"))
+// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+document["test-issue-21"] = "foo";
+
+// SNIPPET #3:
+//   (testing "exercise ocall! with *warn-on-infer* enabled"
+//     (ocall! js/document :getElementById "foo"))
+// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+var target_obj_1 = document,
+  call_info_1 = [target_obj_1, target_obj_1.getElementById],
+  fn_1 = call_info_1[1];
+null != fn_1 && fn_1.call(call_info_1[0], "foo");
+
+// SNIPPET #4:
+//   (testing "exercise oapply! with *warn-on-infer* enabled"
+//     (oapply! js/document :getElementById ["foo"]))
+// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+var target_obj_2 = document,
+  call_info_2 = [target_obj_2, target_obj_2.getElementById],
+  fn_2 = call_info_2[1];
+null != fn_2 && fn_2.apply(call_info_2[0], oops.helpers.to_native_array());