 	:else
 	(full-sequence-match? actual expected kind))
   )
-
-(defn same-lengths? [actual expected]
-  (= (count actual) (count expected)))
-
-(defn expected-fits? [actual expected]
-  (>= (count actual) (count expected)))
-
-(defn midje-take [n thing]
-  (take n thing))
-
-(defn midje-take-last [n thing]
-  (take-last n thing))
-
-(defn midje-re-find [re string]
-  (try
-    (re-find re string)
-    (catch Exception ex false)))
-
-(defn midje-re-matches [re string]
-  (try
-    (re-matches re string)
-    (catch Exception ex false)))
 
 ;; The interface
 


	    :else 
	    (better-of candidate best-so-far)))))
    
(defmethod seq-comparison :in-any-order
  [actual expected kind]



(def has-prefix
     (container-checker
      (has-xfix "prefix" #(re-pattern (str "^" (.toString %))) take)))
(def has-suffix
     (container-checker
      (has-xfix "suffix" #(re-pattern (str (.toString %) "$" )) take-last)))
			    
(defn has [quantifier predicate]
  (fn [actual]
    (quantifier predicate
		(if (map? actual)
		  (vals actual)
		  actual))))

;; These are used in some internal tests. Worth publicizing?

(defn n-of [expected expected-count]
  {:midje/checker true}
