From 391898ad586671a635d17ce5def9f098d250394d Mon Sep 17 00:00:00 2001
From: Frantisek Sodomka <fsodomka@gmail.com>
Date: Wed, 27 May 2009 11:29:30 +0000
Subject: test-clojure: added compilation.clj, macros.clj, metadata.clj;
 compilation: compiler metadata; java-interop: dot, double-dot, doto; vars:
 regression in binding

---
 src/clojure/contrib/test_clojure/java_interop.clj | 22 +++++++++++++++++-----
 1 file changed, 17 insertions(+), 5 deletions(-)

(limited to 'src/clojure/contrib/test_clojure/java_interop.clj')

diff --git a/src/clojure/contrib/test_clojure/java_interop.clj b/src/clojure/contrib/test_clojure/java_interop.clj
index 5384dcc8..346a6e7f 100644
--- a/src/clojure/contrib/test_clojure/java_interop.clj
+++ b/src/clojure/contrib/test_clojure/java_interop.clj
@@ -16,6 +16,23 @@
 ; . ..
 ; doto
 
+(deftest test-dot
+  (are (= _1 _2)
+      (. Integer MAX_VALUE) Integer/MAX_VALUE
+      (. Integer MAX_VALUE) java.lang.Integer/MAX_VALUE ))
+
+(deftest test-double-dot
+  (is (= (.. System (getProperties) (get "os.name"))
+         (. (. System (getProperties)) (get "os.name")))))
+
+(deftest test-doto
+  (let [doto-map (doto (new java.util.HashMap)
+                   (.put "a" 1)
+                   (.put "b" 2))]
+    (is (= (class doto-map) java.util.HashMap))
+    (is (= doto-map {"a" 1 "b" 2}))))
+
+
 ; new
 
 ; instance?
@@ -26,8 +43,6 @@
 
 ; bean
 ; proxy, proxy-super
-; gen-class, gen-interface
-; compile
 
 ; bases, supers
 
@@ -41,6 +56,3 @@
 ; Coercions: int, long, float, double, char, boolean, short, byte
 ;   num
 ;   ints/longs/floats/doubles
-
-; Simple XML Support: xml/parse
-
-- 
cgit v1.2.3-18-g5258