120 lines
4.1 KiB
Clojure
120 lines
4.1 KiB
Clojure
(ns clj-jtwig.convert-test
|
|
(:require [clojure.test :refer :all]
|
|
[clj-jtwig.convert :refer :all]))
|
|
|
|
(deftest java-to-clojure
|
|
(testing "Converting Java values to Clojure values"
|
|
(is (= (byte 64)
|
|
(java->clojure (new Byte (byte 64))))
|
|
"Byte")
|
|
(is (= (short 1337)
|
|
(java->clojure (new Short (short 1337))))
|
|
"Short")
|
|
(is (= (int 1048576)
|
|
(java->clojure (new Integer (int 1048576))))
|
|
"Integer")
|
|
(is (= (new Long 1099511627776)
|
|
(java->clojure (new Long 1099511627776)))
|
|
"Long")
|
|
(is (= (float 3.14159)
|
|
(java->clojure (new Float (float 3.14159))))
|
|
"Float")
|
|
(is (= (new Double 3.14159)
|
|
(java->clojure (new Double 3.14159)))
|
|
"Double")
|
|
(is (= (new Boolean true)
|
|
(java->clojure (new Boolean true)))
|
|
"Boolean")
|
|
(is (= (new Character \a)
|
|
(java->clojure (new Character \a)))
|
|
"Character")
|
|
(is (= (new String "foobar")
|
|
(java->clojure (new String "foobar")))
|
|
"String")
|
|
|
|
(is (= '(1 2 3 4 5)
|
|
(java->clojure (new java.util.ArrayList [1 2 3 4 5])))
|
|
"ArrayList")
|
|
(is (= '(1 2 3 4 5)
|
|
(java->clojure (new java.util.HashSet #{1 2 3 4 5})))
|
|
"HashSet")
|
|
(is (= '(1 2 3 4 5)
|
|
(java->clojure (new java.util.LinkedList '(1 2 3 4 5))))
|
|
"LinkedList")
|
|
(is (= {:a 1 :b 2 :c 3 :d 4 :e 5}
|
|
(java->clojure (new java.util.HashMap {:a 1 :b 2 :c 3 :d 4 :e 5})))
|
|
"HashMap")
|
|
|
|
(is (= [1 2 3 4 [\a \b \c \d \e]]
|
|
(java->clojure (new java.util.ArrayList [1 2 3 4 [\a \b \c \d \e]])))
|
|
"nested ArrayList")
|
|
(is (= {:a 1 :b 2 :c 3 :d 4 :e 5 :f {:foo "foo" "bar" nil :baz {:lol "hello"}}}
|
|
(java->clojure (new java.util.HashMap {:a 1 :b 2 :c 3 :d 4 :e 5 :f {:foo "foo" "bar" nil :baz {:lol "hello"}}})))
|
|
"nested HashMap")
|
|
|
|
(is (= (new java.util.Date 1393769745745)
|
|
(java->clojure (new java.util.Date 1393769745745)))
|
|
"Object")
|
|
|
|
(is (= nil
|
|
(java->clojure nil))
|
|
"null")))
|
|
|
|
(deftest clojure-to-java
|
|
(testing "Converting Clojure values to Java values"
|
|
(is (= (new Long 42)
|
|
(clojure->java 42))
|
|
"integer-type number")
|
|
(is (= (new Double 3.14159)
|
|
(clojure->java 3.14159))
|
|
"floating-point-type number")
|
|
(is (= (new Boolean true)
|
|
(clojure->java true))
|
|
"boolean")
|
|
(is (= (new Character \a)
|
|
(clojure->java \a))
|
|
"character")
|
|
(is (= (new String "foobar")
|
|
(clojure->java "foobar"))
|
|
"string")
|
|
|
|
(is (= java.util.ArrayList
|
|
(class (clojure->java [1 2 3 4 5])))
|
|
"vector type")
|
|
(is (= (new java.util.ArrayList [1 2 3 4 5])
|
|
(clojure->java [1 2 3 4 5]))
|
|
"vector contents")
|
|
(is (= java.util.ArrayList
|
|
(class (clojure->java #{1 2 3 4 5})))
|
|
"set type")
|
|
(is (= (new java.util.ArrayList #{1 2 3 4 5})
|
|
(clojure->java #{1 2 3 4 5}))
|
|
"set contents")
|
|
(is (= java.util.ArrayList
|
|
(class (clojure->java '(1 2 3 4 5))))
|
|
"list type")
|
|
(is (= (new java.util.ArrayList '(1 2 3 4 5))
|
|
(clojure->java '(1 2 3 4 5)))
|
|
"list contents")
|
|
(is (= java.util.HashMap
|
|
(class (clojure->java {:a 1 :b 2 :c 3 :d 4 :e 5})))
|
|
"map type")
|
|
(is (= (new java.util.HashMap {:a 1 :b 2 :c 3 :d 4 :e 5})
|
|
(clojure->java {:a 1 :b 2 :c 3 :d 4 :e 5}))
|
|
"map contents")
|
|
|
|
(is (= (new java.util.ArrayList [1 2 3 4 (new java.util.ArrayList [\a \b \c \d \e])])
|
|
(clojure->java [1 2 3 4 [\a \b \c \d \e]]))
|
|
"nested vector contents")
|
|
(is (= (new java.util.HashMap {:a 1 :b 2 :c 3 :d 4 :e 5 :f (new java.util.HashMap {:foo "foo" "bar" nil :baz (new java.util.HashMap {:lol "hello"})})})
|
|
(clojure->java {:a 1 :b 2 :c 3 :d 4 :e 5 :f {:foo "foo" "bar" nil :baz {:lol "hello"}}}))
|
|
"nested map contents")
|
|
|
|
(is (= (new java.util.Date 1393769745745)
|
|
(clojure->java (new java.util.Date 1393769745745)))
|
|
"object")
|
|
|
|
(is (= nil
|
|
(clojure->java nil))
|
|
"nil")))
|