clojure-mode/test.clj at master · laurio/clojure-mode · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
(ns clojure-mode.test
  (:use [clojure.test]))

(deftest test-str
  (is (= "o hai" (str "o" "hai"))))

(deftest test-errs
  (is (({} :hi)))
  (is (str "This one doesn't actually error."))
  (is (= 0 (/ 9 0))))

(deftest test-bad-math
  (is (= 0 (* 8 2)))
  (is (= 5 (+ 2 2))))

(deftest test-something-that-actually-works
  (is (= 1 1)))

;; For debugging
;; (map #(cons (str (:name (meta %))) (:status (meta %))) (vals (ns-interns *ns*)))
;; (insert (pp the-result))

(comment ;; for indentation
  (with-hi heya
    somebuddy)

  (deftoggle cap
    gabba)

  (couch/with-db hi
    your-db)

  (clo/defguppy gurgle
    minnow))