Use cljs.test with consistent alias (#162)

* Use cljs.test with consistent alias

* Throw JS error instead of Java exception

Author: simisc

exercises/practice/accumulate/test/accumulate_test.cljs

@@ -1,5 +1,6 @@
 (ns accumulate-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
+            [clojure.string :refer [upper-case]]
             accumulate))
 
 (defn- square [n] (* n n))
@@ -15,7 +16,7 @@
 (deftest accumulate-upcases
   (is (= ["HELLO", "WORLD"]
          (->> ["hello" "world"]
-              (accumulate/accumulate clojure.string/upper-case)
+              (accumulate/accumulate upper-case)
               (map to-s)))))
 
 (deftest accumulate-reversed-strings

exercises/practice/acronym/test/acronym_test.cljs

@@ -1,5 +1,5 @@
 (ns acronym-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             acronym))
 
 (deftest test-acronym-empty-string

exercises/practice/all-your-base/test/all_your_base_test.cljs

@@ -1,5 +1,5 @@
 (ns all-your-base-test
-  (:require [clojure.test :refer [deftest testing is]]
+  (:require [cljs.test :refer [deftest is testing] :as t :include-macros true]
             [all-your-base]))
 
 (deftest test-single-bit-to-one-decimal

exercises/practice/atbash-cipher/test/atbash_cipher_test.cljs

@@ -1,5 +1,5 @@
 (ns atbash-cipher-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             atbash-cipher))
 
 (deftest encode-no

exercises/practice/bank-account/test/bank_account_test.cljs

@@ -1,6 +1,6 @@
 (ns bank-account-test
   (:require
-   [clojure.test :refer [deftest testing is use-fixtures]]
+   [cljs.test :refer [deftest is testing] :as t :include-macros true]
    [bank-account]))
 
 (defn pcalls
@@ -11,8 +11,8 @@
   [& fns] (pmap #(%) fns))
 
 #_(defn shutdown-agents-fixture [f]
-  (f)
-  (shutdown-agents))
+    (f)
+    (shutdown-agents))
 
 ;(use-fixtures :once shutdown-agents-fixture)
 

exercises/practice/change/test/change_test.cljs

@@ -1,5 +1,5 @@
 (ns change-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             [change :refer [issue]]))
 
 (deftest single-coin-change
@@ -27,12 +27,12 @@
 
 (deftest error-testing-for-change-smallet-than-the-smallest-coin
   (is (thrown? js/Error #"cannot change"
-                        (issue 3 #{5 10}))))
+               (issue 3 #{5 10}))))
 
 (deftest cannot-find-negative-change-values
   (is (thrown? js/Error #"cannot change"
-                        (issue -5 #{1 2 5}))))
+               (issue -5 #{1 2 5}))))
 
 (deftest error-testing-for-no-valid-change
   (is (thrown? js/Error #"cannot change"
-                        (issue 10 #{20 8 3}))))
+               (issue 10 #{20 8 3}))))

exercises/practice/collatz-conjecture/test/collatz_conjecture_test.cljs

@@ -1,5 +1,5 @@
 (ns collatz-conjecture-test
-  (:require [clojure.test :refer [deftest is testing]]
+  (:require [cljs.test :refer [deftest is testing] :as t :include-macros true]
             [collatz-conjecture :refer [collatz]]))
 
 (deftest steps-for-1

exercises/practice/complex-numbers/test/complex_numbers_test.cljs

@@ -1,5 +1,5 @@
 (ns complex-numbers-test
-  (:require [clojure.test :refer [deftest is testing]]
+  (:require [cljs.test :refer [deftest is testing] :as t :include-macros true]
             [complex-numbers :as c]))
 
 ;; Tests for Real Part

exercises/practice/crypto-square/test/crypto_square_test.cljs

@@ -1,5 +1,5 @@
 (ns crypto-square-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             crypto-square))
 
 (deftest normalize-splunk
@@ -45,4 +45,4 @@
            (crypto-square/normalize-ciphertext plaintext)))))
 (deftest cipher-6
   (is (= "imtgdvs fearwer mayoogo anouuio ntnnlvt wttddes aohghn  sseoau "
-         (crypto-square/normalize-ciphertext "If man was meant to stay on the ground, god would have given us roots."))))
+         (crypto-square/normalize-ciphertext "If man was meant to stay on the ground, god would have given us roots."))))

exercises/practice/diamond/test/diamond_test.cljs

@@ -1,5 +1,5 @@
 (ns diamond-test
-  (:require [clojure.test :refer [deftest is are]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             [diamond :refer [diamond]]))
 
 (deftest single-a-row

exercises/practice/difference-of-squares/test/difference_of_squares_test.cljs

@@ -1,5 +1,5 @@
 (ns difference-of-squares-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             [difference-of-squares :as dos]))
 
 (deftest square-of-sum-to-5

exercises/practice/etl/test/etl_test.cljs

@@ -1,5 +1,5 @@
 (ns etl-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             etl))
 
 (deftest transform-one-value

exercises/practice/flatten-array/test/flatten_array_test.cljs

@@ -1,5 +1,5 @@
 (ns flatten-array-test
-  (:require [clojure.test :refer [deftest is testing]]
+  (:require [cljs.test :refer [deftest is testing] :as t :include-macros true]
             [flatten-array]))
 
 (deftest flattens-array-of-ints

exercises/practice/gigasecond/test/gigasecond_test.cljs

@@ -1,5 +1,5 @@
 (ns gigasecond-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             gigasecond))
 
 (deftest from-apr-25-2011

exercises/practice/go-counting/test/go_counting_test.cljs

@@ -1,5 +1,5 @@
 (ns go-counting-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             [go-counting :as g]))
 
 (def example

exercises/practice/grade-school/test/grade_school_test.cljs

@@ -1,5 +1,5 @@
 (ns grade-school-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             grade-school))
 
 (def db {})

exercises/practice/grains/test/grains_test.cljs

@@ -1,5 +1,5 @@
 (ns grains-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             grains))
 
 (deftest square-1

exercises/practice/kindergarten-garden/test/kindergarten_garden_test.cljs

@@ -1,5 +1,5 @@
 (ns kindergarten-garden-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             kindergarten-garden))
 
 (deftest garden-test

exercises/practice/meetup/test/meetup_test.cljs

@@ -1,5 +1,5 @@
 (ns meetup-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             meetup))
 
 (deftest monteenth-of-may-2013

exercises/practice/minesweeper/test/minesweeper_test.cljs

@@ -1,5 +1,5 @@
 (ns minesweeper-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             [clojure.string :refer [join]]
             [minesweeper :refer [draw]]))
 
@@ -59,4 +59,3 @@
                                "*****"
                                "25*52"
                                " 2*2 "]))))
-

exercises/practice/nth-prime/test/nth_prime_test.cljs

@@ -1,5 +1,5 @@
 (ns nth-prime-test
-  (:require [clojure.test :refer [deftest testing is]]
+  (:require [cljs.test :refer [deftest is testing] :as t :include-macros true]
             nth-prime))
 
 (deftest first-prime

exercises/practice/perfect-numbers/test/perfect_numbers_test.cljs

@@ -1,6 +1,6 @@
 (ns perfect-numbers-test
   (:require
-   [clojure.test :refer [deftest testing is]]
+   [cljs.test :refer [deftest is testing] :as t :include-macros true]
    [perfect-numbers]))
 
 (deftest test-initialize-perfect-number

exercises/practice/pig-latin/test/pig_latin_test.cljs

@@ -1,5 +1,5 @@
 (ns pig-latin-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             pig-latin))
 
 ;; ay is added to words that start with vowels

exercises/practice/poker/test/poker_test.cljs

@@ -1,5 +1,5 @@
 (ns poker-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             [poker :refer [best-hands]]))
 
 (defn f [xs ys] (= (sort (best-hands xs)) (sort ys)))

exercises/practice/pov/test/pov_test.cljs

@@ -1,5 +1,5 @@
 (ns pov-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             pov))
 
 ;;; Inputs.

exercises/practice/prime-factors/test/prime_factors_test.cljs

@@ -1,5 +1,5 @@
 (ns prime-factors-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             prime-factors))
 
 (deftest one

exercises/practice/protein-translation/test/protein_translation_test.cljs

@@ -1,5 +1,5 @@
 (ns protein-translation-test
-  (:require [clojure.test :refer [deftest is are]]
+  (:require [cljs.test :refer [deftest is are] :as t :include-macros true]
             protein-translation))
 
 (deftest AUG-translates-to-Methionine

exercises/practice/proverb/test/proverb_test.cljs

@@ -1,30 +1,30 @@
 (ns proverb-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             [proverb :refer [recite]]
             [clojure.string :as str]))
 
 (deftest zero-pieces
   (is (=
-        (recite ())
-        "")))
-      
+       (recite ())
+       "")))
+
 (deftest one-piece
   (is (=
-        (recite '("nail"))
-        "And all for the want of a nail.")))
+       (recite '("nail"))
+       "And all for the want of a nail.")))
 
 (deftest two-pieces
   (is (=
-        (recite '("nail" "shoe"))
-        (str/join "\n" ["For want of a nail the shoe was lost."
-                        "And all for the want of a nail."]))))
+       (recite '("nail" "shoe"))
+       (str/join "\n" ["For want of a nail the shoe was lost."
+                       "And all for the want of a nail."]))))
 
 (deftest three-pieces
   (is (=
-        (recite '("nail" "shoe" "horse"))
-        (str/join "\n" ["For want of a nail the shoe was lost."
-                        "For want of a shoe the horse was lost."
-                        "And all for the want of a nail."]))))
+       (recite '("nail" "shoe" "horse"))
+       (str/join "\n" ["For want of a nail the shoe was lost."
+                       "For want of a shoe the horse was lost."
+                       "And all for the want of a nail."]))))
 
 (deftest full-proverb
   (is (= (recite '("nail" "shoe" "horse" "rider" "message" "battle" "kingdom"))
@@ -38,8 +38,8 @@
 
 (deftest four-pieces-modernized
   (is (=
-        (recite '("pin" "gun" "soldier" "battle"))
-        (str/join "\n" ["For want of a pin the gun was lost."
-                        "For want of a gun the soldier was lost."
-                        "For want of a soldier the battle was lost."
-                        "And all for the want of a pin."]))))
+       (recite '("pin" "gun" "soldier" "battle"))
+       (str/join "\n" ["For want of a pin the gun was lost."
+                       "For want of a gun the soldier was lost."
+                       "For want of a soldier the battle was lost."
+                       "And all for the want of a pin."]))))

exercises/practice/queen-attack/test/queen_attack_test.cljs

@@ -1,5 +1,5 @@
 (ns queen-attack-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             queen-attack))
 
 (def empty-board

exercises/practice/robot-name/test/robot_name_test.cljs

@@ -1,47 +1,47 @@
 (ns robot-name-test
-  (:require [clojure.test :refer [deftest is testing]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             robot-name))
 
 (deftest robot-name
   (let [a-robot (robot-name/robot)
         its-name (robot-name/robot-name a-robot)]
-      (is (re-seq #"[A-Z]{2}\d{3}" its-name))))
+    (is (re-seq #"[A-Z]{2}\d{3}" its-name))))
 
 (deftest name-matches-pattern
-   (let [a-robot (robot-name/robot)
-         its-name (robot-name/robot-name a-robot)]
-     (is (= its-name (robot-name/robot-name a-robot)))))
+  (let [a-robot (robot-name/robot)
+        its-name (robot-name/robot-name a-robot)]
+    (is (= its-name (robot-name/robot-name a-robot)))))
 
 (deftest different-robots-different-names
- (let [a-robot (robot-name/robot)
+  (let [a-robot (robot-name/robot)
         its-name (robot-name/robot-name a-robot)]
-      (is (not= its-name (-> (robot-name/robot) robot-name/robot-name)))))
+    (is (not= its-name (-> (robot-name/robot) robot-name/robot-name)))))
 
 (deftest new-name-matches
   (let [a-robot (robot-name/robot)
         its-original-name (robot-name/robot-name a-robot)
         its-new-name (do (robot-name/reset-name a-robot)
                          (robot-name/robot-name a-robot))]
-      (is (re-seq #"[A-Z]{2}\d{3}" its-new-name))))
+    (is (re-seq #"[A-Z]{2}\d{3}" its-new-name))))
 
 (deftest new-name-different
   (let [a-robot (robot-name/robot)
         its-original-name (robot-name/robot-name a-robot)
         its-new-name (do (robot-name/reset-name a-robot)
                          (robot-name/robot-name a-robot))]
-      (is (not= its-original-name its-new-name))))
+    (is (not= its-original-name its-new-name))))
 
 (deftest new-name-does-not-change-until-reset
   (let [a-robot (robot-name/robot)
         its-original-name (robot-name/robot-name a-robot)
         its-new-name (do (robot-name/reset-name a-robot)
                          (robot-name/robot-name a-robot))]
-      (is (= its-new-name (robot-name/robot-name a-robot)))))
+    (is (= its-new-name (robot-name/robot-name a-robot)))))
 
 (deftest new-names-different-each-time
   (let [a-robot (robot-name/robot)
         its-original-name (robot-name/robot-name a-robot)
         its-new-name (do (robot-name/reset-name a-robot)
                          (robot-name/robot-name a-robot))]
-  (is (not= its-new-name (do (robot-name/reset-name a-robot)
-                             (robot-name/robot-name a-robot))))))
+    (is (not= its-new-name (do (robot-name/reset-name a-robot)
+                               (robot-name/robot-name a-robot))))))

exercises/practice/robot-simulator/test/robot_simulator_test.cljs

@@ -1,5 +1,5 @@
 (ns robot-simulator-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             robot-simulator))
 
 (def robbie (robot-simulator/robot {:x -2 :y 1} :east))

exercises/practice/roman-numerals/test/roman_numerals_test.cljs

@@ -1,5 +1,5 @@
 (ns roman-numerals-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             roman-numerals))
 
 (deftest one

exercises/practice/rotational-cipher/test/rotational_cipher_test.cljs

@@ -1,5 +1,5 @@
 (ns rotational-cipher-test
-  (:require  [clojure.test :refer [deftest is testing]]
+  (:require  [cljs.test :refer [deftest is] :as t :include-macros true]
              rotational-cipher))
 
 (deftest rotate-a-by-1

exercises/practice/say/test/say_test.cljs

@@ -1,5 +1,5 @@
 (ns say-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             say))
 
 (deftest zero-test

exercises/practice/scrabble-score/test/scrabble_score_test.cljs

@@ -1,5 +1,5 @@
 (ns scrabble-score-test
-  (:require [clojure.test :refer [deftest is]]
+  (:require [cljs.test :refer [deftest is] :as t :include-macros true]
             scrabble-score))
 
 (deftest lower-case-letter