simon/testgen
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Generated tests in a dogfood stylee, and added them. They succeed!

Browse source
This commit is contained in:
Simon Brooke 2014-04-03 00:27:35 +01:00
parent f80627763c
commit 75a35a5043
2 changed files with 78 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/testgen/core.clj
View file

@ -2,7 +2,7 @@
(defn write-test [fnname arg]
(try
(list 'is (list '= (list fnname arg) (eval (list fnname arg))))
(list 'is (list '= (list fnname arg) (list 'quote (eval (list fnname arg)))))
(catch Exception e (list 'is (list 'thrown? (.getClass e) (list fnname arg))))))
@ -13,7 +13,7 @@
(vector? arg)
(map? arg))))
(def generic-args '(nil () true "test" :test 0 Integer/MAX_VALUE 0.0001 -0.0001))
(def generic-args '(nil () (quote (a :b "c")) true "test" :test 0 Integer/MAX_VALUE 22/7 0.0001 -0.0001))
(defn constants [form]
"return a list of all elements in this form which are constants"
@ -25,14 +25,15 @@
(flatten
(map
#(cond
(number? %) (list % (inc %) (dec %))
(integer? %) (list % (inc %) (dec %))
(number? %) (list % (+ % 0.0001) (- % 0.0001))
true %)
(constants sexpr)))))
(defn testgen [fndef]
(cond (= (first fndef) 'defn)
(let [name (first (rest fndef))]
(list 'deftest (symbol (str "test-" name))
(concat (list 'deftest (symbol (str "test-" name)))
(map #(write-test name %) (find-interesting-args fndef))))))
;; (defn gen-tests [fnname form]

76
test/testgen/core_test.clj
View file

@ -1,7 +1,77 @@
(ns testgen.core-test
"In the spirit of eating your own dogfood, all these tests are generated
with testgen."
(:require [clojure.test :refer :all]
[testgen.core :refer :all]))
(deftest a-test
(testing "FIXME, I fail."
(is (= 0 1))))
(deftest
test-integer?
(is (= (integer? nil) false))
(is (= (integer? ()) false))
(is (= (integer? '(a :b "c")) false))
(is (= (integer? true) false))
(is (= (integer? "test") false))
(is (= (integer? :test) false))
(is (= (integer? 0) true))
(is (= (integer? Integer/MAX_VALUE) true))
(is (= (integer? 22/7) false))
(is (= (integer? 1.0E-4) false))
(is (= (integer? -1.0E-4) false))
(is (= (integer? "Returns true if n is an integer") false)))
(deftest
test-testgen
(is (= (testgen nil) nil))
(is (= (testgen ()) nil))
(is (= (testgen '(a :b "c")) nil))
(is (thrown? java.lang.IllegalArgumentException (testgen true)))
(is (= (testgen "test") nil))
(is (thrown? java.lang.IllegalArgumentException (testgen :test)))
(is (thrown? java.lang.IllegalArgumentException (testgen 0)))
(is
(thrown?
java.lang.IllegalArgumentException
(testgen Integer/MAX_VALUE)))
(is (thrown? java.lang.IllegalArgumentException (testgen 22/7)))
(is (thrown? java.lang.IllegalArgumentException (testgen 1.0E-4)))
(is (thrown? java.lang.IllegalArgumentException (testgen -1.0E-4)))
(is (= (testgen "test-") nil)))
(deftest
test-constant?
(is (= (constant? nil) 'true))
(is (= (constant? ()) 'false))
(is (= (constant? '(a :b "c")) 'false))
(is (= (constant? true) 'true))
(is (= (constant? "test") 'true))
(is (= (constant? :test) 'true))
(is (= (constant? 0) 'true))
(is (= (constant? Integer/MAX_VALUE) 'true))
(is (= (constant? 22/7) 'true))
(is (= (constant? 1.0E-4) 'true))
(is (= (constant? -1.0E-4) 'true)))
(deftest
test-constants
(is (= (constants nil) '()))
(is (= (constants ()) '()))
(is (= (constants '(a :b "c")) '(:b "c")))
(is (= (constants true) '()))
(is (= (constants "test") '()))
(is (= (constants :test) '()))
(is (= (constants 0) '()))
(is (= (constants Integer/MAX_VALUE) '()))
(is (= (constants 22/7) '()))
(is (= (constants 1.0E-4) '()))
(is (= (constants -1.0E-4) '()))
(is
(=
(constants
"return a list of all elements in this form which are constants")
'())))