mirror of
https://github.com/status-im/reagent.git
synced 2025-01-28 04:36:21 +00:00
46 lines
1.3 KiB
Clojure
46 lines
1.3 KiB
Clojure
(ns testinterop
|
|
(:require [cemerick.cljs.test :as t :refer-macros [is deftest]]
|
|
[reagent.debug :refer-macros [dbg]]
|
|
[reagent.interop :refer-macros [oget oset odo]]))
|
|
|
|
(deftest interop-basic
|
|
(let [o #js{:foo "foo"
|
|
:foobar #js{:bar "bar"}
|
|
:bar-foo "barfoo"}]
|
|
(is (= "foo" (oget o :foo)))
|
|
(is (= "bar" (oget o :foobar :bar)))
|
|
(is (= "barfoo" (oget o :bar-foo)))
|
|
|
|
(oset o :foo "foo1")
|
|
(is (= "foo1" (oget o :foo)))
|
|
|
|
(oset o :foo "foo2")
|
|
(is (= "foo2" (oget o :foo)))
|
|
|
|
(oset o :foobar :bar "bar1")
|
|
(is (= "bar1" (oget o :foobar :bar)))))
|
|
|
|
(deftest interop-call
|
|
(let [o #js{:bar "bar1"
|
|
:foo (fn [x]
|
|
(this-as this
|
|
(str x (oget this :bar))))}
|
|
o2 #js{:o o}]
|
|
(is (= "ybar1" (odo o :foo "y")))
|
|
(is (= "xxbar1" (odo o2 [:o :foo] "xx")))
|
|
(is (= "abar1" (-> o2
|
|
(oget :o :foo)
|
|
(odo [] "a"))))
|
|
|
|
(is (= "bar1" (odo o :foo)))
|
|
(is (= "bar1" (odo o [:foo])))
|
|
(is (= "bar1" (odo o2 [:o :foo])))
|
|
|
|
(oset o :bar "bar2")
|
|
(is (= "bar2" (odo o :foo)))
|
|
|
|
(is (= "1bar2" (odo (oget o :foo)
|
|
:call o 1)))
|
|
|
|
(is (= "yy" (odo identity [] "yy")))))
|