escape function now uses contains? in place of includes?

src/compojure/str_utils.clj

@@ -16,10 +16,11 @@
   "Returns a string with each occurance of a character in
   chars escaped."
   [chars #^String string]
-  (apply str
-    (mapcat
-      #(if (includes? chars %) [\\ %] [%])
-      string)))
+  (let [charset (set chars)]
+    (apply str
+      (mapcat
+        #(if (contains? charset %) [\\ %] [%])
+        string))))
 
 (defn map-str
   "Map a function to a collection, then concatenate the results into a

test/compojure/str_utils.clj

@@ -0,0 +1,7 @@
+(ns test.compojure.str-utils
+  (:use compojure.str-utils)
+  (:use clojure.contrib.test-is))
+
+(deftest test-escape
+  (is (= (escape "aeiou" "hello world")
+         "h\\ell\\o w\\orld")))

test/run.clj

@@ -7,6 +7,7 @@
   (:require test.compojure.http.response)
   (:require test.compojure.http.session)
   (:require test.compojure.http.helpers)
+  (:require test.compojure.str-utils)
   (:require test.compojure.validation))
 
 (run-tests 
@@ -17,4 +18,5 @@
   'test.compojure.http.response
   'test.compojure.http.session
   'test.compojure.http.helpers
+  'test.compojure.str-utils
   'test.compojure.validation)