             (filter #(or include-empty (not (str/blank? (second %)))))
             (into {}))))))
 
+(defn parse-options [options]
+  (into {} (for [opt (str/split options #"\s*,\s*")
+                 :let[[_ key _ _ value] (re-find #"\s*([^:=\s]+)\s*((:|=)\s*([^\s]+))?\s*" opt) ]
+                 :when key]
+             [(keyword (str/lower-case key)) (or value true)])))
+
 (defn- to-test-case
   "convert yaml/json to test-case format"
   [params]

  (with-open [in-file (io/reader file)]
    (doall (rest (csv/read-csv in-file)))))

(defmethod load-tests-from :yaml [file]
  (from-yaml file))

(defn parse-options [options]

        (Integer/parseInt s))
    (catch Exception e 0)))

(defn placeholders [s]
  (set (map second (re-seq placeholder-pattern s))))

(defn placeholders-of [{:keys[url headers params payload exp-body]}]
  (apply union (map placeholders [url headers params payload exp-body])))

