Added Luminus re-frame profile

This commit is contained in:
Simon Brooke 2020-01-24 09:55:20 +00:00
parent 0b4a7fafdd
commit ca72a63199
41 changed files with 1114 additions and 0 deletions

View file

@ -0,0 +1,27 @@
(ns datamapper.test.handler
(:require
[clojure.test :refer :all]
[ring.mock.request :refer :all]
[datamapper.handler :refer :all]
[datamapper.middleware.formats :as formats]
[muuntaja.core :as m]
[mount.core :as mount]))
(defn parse-json [body]
(m/decode formats/instance "application/json" body))
(use-fixtures
:once
(fn [f]
(mount/start #'datamapper.config/env
#'datamapper.handler/app-routes)
(f)))
(deftest test-app
(testing "main route"
(let [response ((app) (request :get "/"))]
(is (= 200 (:status response)))))
(testing "not-found route"
(let [response ((app) (request :get "/invalid"))]
(is (= 404 (:status response))))))

View file

@ -0,0 +1,9 @@
(ns datamapper.core-test
(:require [cljs.test :refer-macros [is are deftest testing use-fixtures]]
[pjstadig.humane-test-output]
[reagent.core :as reagent :refer [atom]]
[datamapper.core :as rc]))
(deftest test-home
(is (= true true)))

View file

@ -0,0 +1,6 @@
(ns datamapper.doo-runner
(:require [doo.runner :refer-macros [doo-tests]]
[datamapper.core-test]))
(doo-tests 'datamapper.core-test)