params added to long urls as well

2014-01-25 21:37:20 +01:00
parent 6cc030e855
commit 32238ff298
5 changed files with 28 additions and 19 deletions
@@ -129,6 +129,7 @@
                   (str "/"
                        (last (clojure.string/split
                               ((parse-string (:body response)) "shortURL") #"/"))))) "Location")]
+        (= url ((parse-string (:body response)) "longURL"))
        (substring? "theme=dark" url)
        (substring? "text-font=Felvetica" url))
      (is (do
@@ -1,6 +1,6 @@
 (ns NoteHub.test.views.pages
  (:use [NoteHub.views.pages]
-        [NoteHub.api :only [build-key get-signature get-date]]
+        [NoteHub.api :only [build-key get-signature get-date url]]
        [noir.util.test]
        [NoteHub.storage]
        [clojure.test]))