pathWithComponents

gistfile1.clj

(ns path.core
  (:use clojure.test)
  (:require [clojure.string :as s]))

(defn clean-component [component]
  (s/replace component #"/+" ""))

(defn path-prefix [components]
  (if (re-find #"/+" (first components))
    "/"
    ""))

(defn pathWithComponents [components]
  (apply str (path-prefix components)
         (interpose "/"
                    (remove empty?
                            (map clean-component components)))))

(testing "pathWithComponents"
  (is (= "Apple/Local/Library/Frameworks" (pathWithComponents ["Apple" "Local" "Library" "Frameworks"])))
  (is (= "/Apple/Local/Library/Frameworks" (pathWithComponents ["/" "Apple" "Local" "Library" "Frameworks"])))
  (is (= "/Apple/Local/Library/Frameworks" (pathWithComponents ["/" "Apple" "Local" "Library" "Frameworks/" "/"])))
  (is (= "/Apple/Local/Library/Frameworks" (pathWithComponents ["/" "Apple" "Local" "///////"  "Library" "Frameworks" "/"]))))