Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

20 lines (18 sloc) 0.492 kB
(ns kibit.test.equality
(:require [kibit.check :as kibit])
(:use [clojure.test]))
(deftest equality-are
(are [expected-alt-form test-form]
(= expected-alt-form (:alt (kibit/check-expr test-form)))
'(not= x b) '(not (= x b))
'(zero? x) '(= 0 x)
'(zero? x) '(= x 0)
'(zero? x) '(== 0 x)
'(zero? x) '(== x 0)
'(pos? x) '(< 0 x)
'(pos? x) '(> x 0)
'(pos? x) '(<= 1 x)
'(neg? x) '(< x 0)
true '(= x x)
true '(== x x)
true '(zero? 0)))
Jump to Line
Something went wrong with that request. Please try again.