testing time dependent functions.clj

(use 'clojure.contrib.test-is)

(def now (new java.util.Date))

(defn date [year month day] 
  (new java.util.Date (- year 1900) (dec month) day))

(with-test
  (defn business-method [date]
    (let [after #(pos? (compare %1 %2))]
      (if (after date now)
        "expired")))
  (binding [now (date 2010 5 10)]
    (is (= (business-method (date 2010 5 10)) nil))
    (is (= (business-method (date 2010 5 11)) "expired"))))

(run-tests)