1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/clojure/test_clojure/pprint/test_helper.clj	Sat Aug 21 06:25:44 2010 -0400
     1.3 @@ -0,0 +1,27 @@
     1.4 +;;; test_helper.clj -- part of the pretty printer for Clojure
     1.5 +
     1.6 +;   Copyright (c) Rich Hickey. All rights reserved.
     1.7 +;   The use and distribution terms for this software are covered by the
     1.8 +;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
     1.9 +;   which can be found in the file epl-v10.html at the root of this distribution.
    1.10 +;   By using this software in any fashion, you are agreeing to be bound by
    1.11 +;   the terms of this license.
    1.12 +;   You must not remove this notice, or any other, from this software.
    1.13 +
    1.14 +;; Author: Tom Faulhaber
    1.15 +;; April 3, 2009
    1.16 +
    1.17 +
    1.18 +;; This is just a macro to make my tests a little cleaner
    1.19 +
    1.20 +(ns clojure.test-clojure.pprint.test-helper
    1.21 +  (:use [clojure.test :only (deftest is)]))
    1.22 +
    1.23 +(defn- back-match [x y] (re-matches y x))
    1.24 +(defmacro simple-tests [name & test-pairs]
    1.25 +  `(deftest ~name
    1.26 +     ~@(for [[x y] (partition 2 test-pairs)]
    1.27 +         (if (instance? java.util.regex.Pattern y)
    1.28 +           `(is (#'clojure.test-clojure.pprint.test-helper/back-match ~x ~y))
    1.29 +           `(is (= ~x ~y))))))
    1.30 +