lasercutter: src/clojure/test_clojure/pprint/test

added clojure source goodness

rev	line source
rlm@10	1 ;;; test_helper.clj -- part of the pretty printer for Clojure
rlm@10	2
rlm@10	3 ; Copyright (c) Rich Hickey. All rights reserved.
rlm@10	4 ; The use and distribution terms for this software are covered by the
rlm@10	5 ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
rlm@10	6 ; which can be found in the file epl-v10.html at the root of this distribution.
rlm@10	7 ; By using this software in any fashion, you are agreeing to be bound by
rlm@10	8 ; the terms of this license.
rlm@10	9 ; You must not remove this notice, or any other, from this software.
rlm@10	10
rlm@10	11 ;; Author: Tom Faulhaber
rlm@10	12 ;; April 3, 2009
rlm@10	13
rlm@10	14
rlm@10	15 ;; This is just a macro to make my tests a little cleaner
rlm@10	16
rlm@10	17 (ns clojure.test-clojure.pprint.test-helper
rlm@10	18 (:use [clojure.test :only (deftest is)]))
rlm@10	19
rlm@10	20 (defn- back-match [x y] (re-matches y x))
rlm@10	21 (defmacro simple-tests [name & test-pairs]
rlm@10	22 `(deftest ~name
rlm@10	23 ~@(for [[x y] (partition 2 test-pairs)]
rlm@10	24 (if (instance? java.util.regex.Pattern y)
rlm@10	25 `(is (#'clojure.test-clojure.pprint.test-helper/back-match ~x ~y))
rlm@10	26 `(is (= ~x ~y))))))
rlm@10	27

Mercurial > lasercutter