           (not= value m-val) (throw (wrong-property-value property m-val value))
           :default true)))
 
-(defmacro assert-json 
+(defmacro assert-json-values 
   "Assert JSON properties (and corresponding values) in a convenient form.
   
   Example:

     (map (fn [c#] (assert-property m# (first c#) (second c#))) 
          (partition 2 (vector ~@body)))))



(ns assert-json.core
  (:use [cheshire.core :as cheshire :only [parse-string]]
        [assert-json.exceptions :only [property-not-found
                                       wrong-property-type
                                       wrong-property-value]]))
