diff --git a/test/NoteHub/test/handler.clj b/test/NoteHub/test/handler.clj index bd8adf9..ad67af7 100644 --- a/test/NoteHub/test/handler.clj +++ b/test/NoteHub/test/handler.clj @@ -1,24 +1,15 @@ (ns notehub.test.handler (:use clojure.test + [notehub.api :only [build-key get-date url]] + notehub.storage ring.mock.request + notehub.test.api notehub.handler)) -(defn substring? [a b] (not (= nil (re-matches (re-pattern (str "(?s).*" a ".*")) b)))) (def date [2012 6 3]) (def test-title "some-title") (def test-note "# This is a test note.\nHello _world_. Motörhead, тест.") - -#_( - - (ns NoteHub.test.views.pages - (:use [NoteHub.views.pages] - [NoteHub.api :only [build-key get-signature get-date url]] - [noir.util.test] - [NoteHub.storage] - [clojure.test])) - - (defn create-testnote-fixture [f] (add-note (build-key date test-title) test-note "testPID") (f) @@ -35,10 +26,10 @@ (deftest export-test (testing "Markdown export" - (is (has-body (send-request (url 2012 6 3 "some-title" "export")) test-note)))) + (is (= (:body (send-request (url 2012 6 3 "some-title" "export"))) test-note)))) (deftest note-creation - (let [session-key (create-session) + (let [session-key "somemd5hash" date (get-date) title "this-is-a-test-note" [year month day] date] @@ -47,7 +38,7 @@ [:post "/post-note"] {:session session-key :note test-note - :signature (get-signature session-key test-note)})] + :signature (sign session-key test-note)})] (is (has-status resp 302)) (is (note-exists? (build-key date title))) (is (substring? "Hello _world_" @@ -57,7 +48,7 @@ (not (note-exists? (build-key date title))))))))) (deftest note-creation-utf - (let [session-key (create-session) + (let [session-key "somemd5hash" date (get-date) title "радуга" note "# Радуга\nкаждый охотник желает знать, где сидят фазаны." @@ -68,7 +59,7 @@ [:post "/post-note"] {:session session-key :note note - :signature (get-signature session-key note)}) 302)) + :signature (sign session-key note)}) 302)) (is (note-exists? (build-key date title))) (is (substring? "знать" ((send-request (url year month day title)) :body))) (is (do @@ -76,11 +67,11 @@ (not (note-exists? (build-key date title)))))))) (deftest note-update - (let [session-key (create-session) + (let [session-key "somemd5hash" date (get-date) title "this-is-a-test-note" [year month day] date - hash (get-signature session-key test-note)] + hash (sign session-key test-note)] (testing "Note update" (is (has-status (send-request @@ -128,9 +119,6 @@ (is (has-status (send-request "/") 200) "accessing landing page")))) - ) - - (deftest test-app (testing "main route" (let [response (app (request :get "/"))]