simon/smeagol
1
0
Fork 0
mirror of https://github.com/journeyman-cc/smeagol.git synced 2026-04-12 18:05:06 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Mostly added documentation, but some minor changes.

Browse source
This commit is contained in:
simon 2017-08-09 13:12:44 +01:00
parent f54a2d46f3
commit 54dcdd5b4c
24 changed files with 395 additions and 223 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test/smeagol/test/diff2html.clj
View file

@ -1,7 +1,6 @@
(ns smeagol.test.diff2html
(:use clojure.test
ring.mock.request
smeagol.diff2html))
(:require [clojure.test :refer :all]
[smeagol.diff2html :refer :all]))
(deftest test-mung-line
(testing "conversion of individual lines"

7
test/smeagol/test/util.clj → test/smeagol/test/formatting.clj
View file

@ -1,7 +1,6 @@
(ns smeagol.test.util
(:use clojure.test
ring.mock.request
smeagol.formatting))
(ns smeagol.test.formatting
(:require [clojure.test :refer :all]
[smeagol.formatting :refer [local-links no-text-error]]))
(deftest test-local-links
(testing "Rewriting of local links"

10
test/smeagol/test/handler.clj
View file

@ -1,13 +1,13 @@
(ns smeagol.test.handler
(:use clojure.test
ring.mock.request
smeagol.handler))
(:require [clojure.test :refer :all]
[ring.mock.request :refer :all]
[smeagol.handler :refer :all]))
(deftest test-app
(testing "main route"
(let [response (app (request :get "/"))]
(let [response (app (request :get "/" {:accept-language "en-GB"}))]
(is (= 200 (:status response)))))
(testing "not-found route"
(let [response (app (request :get "/invalid"))]
(let [response (app (request :get "/invalid" {:accept-language "en-GB"}))]
(is (= 404 (:status response))))))