Added tests for this, including use of self-call

clojure · Sep 16, 2011 · 9b15ff4 · 9b15ff4
1 parent ae054a5
commit 9b15ff4
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/test/cljs/cljs/core_test.cljs b/test/cljs/cljs/core_test.cljs
@@ -724,5 +724,16 @@
   (assert (= (assoc fred :lastname "Flintstone") {:firstname "Fred" :lastname "Flintstone"}))
   (assert (= (assoc fred :wife :ethel) {:firstname "Fred" :lastname "Mertz" :wife :ethel}))
   (assert (= (dissoc ethel :husband) {:firstname "Ethel" :lastname "Mertz"}))
+
+  ;; extend-object
+  (let [obj (js* "{}")]
+    (extend-object obj
+      {:foo #(do 42)
+       :bar #(+ 100 (. js/this (foo)))
+       :baz #(+ % %2)})
+
+    (assert (= 42  (. obj (foo))))
+    (assert (= 142 (. obj (bar))))
+    (assert (= 3   (. obj baz 1 2))))
 
   :ok)