helper.clj

(defn project-link [project]
  (when project [:h3 [:a {:href (str "/" (:permaname project) "/project/view")} (str "Project: " (:name project))]]))

helper_spec.clj

  (it "returns a link when there is a project in the view context"
       (let [project {:project {:name "foo" :permaname "bar"}}
             link (nth (project-link project) 1)]
         (should link)
         (should= "/bar/project/view" (:href (nth link 1)))
         (should-contain "Project: foo" link))))