Add tests for class symbols

This commit is contained in:
Daniel Compton 2014-11-12 09:38:24 +13:00
parent 34e19e7b2a
commit 10ee6bd63c
3 changed files with 12 additions and 5 deletions

View file

@ -3,7 +3,7 @@
(:use [clojure.test]))
;; These tests are identical to the tests in kibit.test.core
;; The are here to illustrate kibit use via `check`
;; They are here to illustrate kibit use via `check`
(deftest simplify-alts
(are [expected-alt test-form]

View file

@ -23,6 +23,3 @@
(= expected-expr (:expr (kibit/check-expr test-expr)))
'(do [1 2 3]) '(do [1 2 3])
nil '(if (> 2 3) :one :two)))

View file

@ -1,7 +1,17 @@
(ns kibit.test.misc
(:require [kibit.check :as kibit])
(:require [kibit.check :as kibit]
[kibit.rules.misc :as misc])
(:use [clojure.test]))
(deftest class-symbol-are
(are [valid? class-symbol]
(= valid? (misc/class-symbol? class-symbol))
true 'Boolean
true 'foo.bar.Baz
false 'boolean
false 'foo.bar.baz
false 'foo.bar))
(deftest misc-are
(are [expected-alt-form test-form]
(= expected-alt-form (:alt (kibit/check-expr test-form)))