Test defonce

This closes #225.

Author: super7ramp

test/clojure/core_test/defonce.cljc

@@ -0,0 +1,26 @@
+(ns clojure.core-test.defonce
+  (:require [clojure.test :refer [are deftest is testing]]
+            [clojure.core-test.portability #?(:cljs :refer-macros :default :refer) [when-var-exists]]))
+
+(when-var-exists defonce
+  (deftest test-defonce
+
+    (testing "defining var only once"
+      (is (some? (defonce one 1)))
+      (is (nil? (defonce one 2)))
+      (is (nil? (defonce one (assert false "should not be evaluated"))))
+      (is (= one 1)))
+
+    (testing "bad shape"
+      (are [name] (thrown? #?(:cljs js/Error :default Exception) (eval '(defonce name nil)))
+                  nil
+                  :k
+                  's
+                  0
+                  37.5
+                  true
+                  false
+                  '()
+                  []
+                  #{}
+                  {}))))