Initial project setup: Clojure Kit web app for BTC price tracking
Kit framework with Undertow, Reitit routing, Hiccup + HTMX templating, Tailwind CSS v4, PostgreSQL (empty database), and mobile-first index page. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
@@ -0,0 +1,6 @@
|
||||
(ns pmagnus.btcprice.core-test
|
||||
(:require
|
||||
[clojure.test :refer [deftest is]]))
|
||||
|
||||
(deftest app-loads-test
|
||||
(is (= 1 1)))
|
||||
@@ -0,0 +1,21 @@
|
||||
(ns pmagnus.btcprice.test-utils
|
||||
(:require
|
||||
[integrant.core :as ig]
|
||||
[integrant.repl.state :as state]
|
||||
[pmagnus.btcprice.config :as config]
|
||||
[pmagnus.btcprice.core :as core]))
|
||||
|
||||
(defn system-state []
|
||||
(or @core/system state/system))
|
||||
|
||||
(defn system-fixture []
|
||||
(fn [f]
|
||||
(let [system (-> (config/system-config {:profile :test})
|
||||
(ig/prep)
|
||||
(ig/init))]
|
||||
(reset! core/system system)
|
||||
(try
|
||||
(f)
|
||||
(finally
|
||||
(ig/halt! system)
|
||||
(reset! core/system nil))))))
|
||||
@@ -0,0 +1,13 @@
|
||||
(ns pmagnus.btcprice.web.request-test
|
||||
(:require
|
||||
[clojure.test :refer [deftest is use-fixtures]]
|
||||
[pmagnus.btcprice.test-utils :as tu]))
|
||||
|
||||
(use-fixtures :once (tu/system-fixture))
|
||||
|
||||
(deftest health-request-test
|
||||
(let [sys (tu/system-state)
|
||||
app (get sys :handler/ring)]
|
||||
(when app
|
||||
(let [resp (app {:request-method :get :uri "/api/health"})]
|
||||
(is (= 200 (:status resp)))))))
|
||||
Reference in New Issue
Block a user