;; lib/host/tests/blog.sx — the blog published-post read endpoint. A registered
;; post renders to HTML at GET /<slug>/; unknown slugs 404. Also pins route
;; precedence: the catch-all :slug must NOT shadow domain routes mounted before it.

(define host-bl-pass 0)
(define host-bl-fail 0)
(define host-bl-fails (list))

(define
  host-bl-test
  (fn
    (name actual expected)
    (if
      (= actual expected)
      (set! host-bl-pass (+ host-bl-pass 1))
      (begin
        (set! host-bl-fail (+ host-bl-fail 1))
        (append! host-bl-fails {:name name :actual actual :expected expected})))))

(define host-bl-req (fn (target) (dream-request "GET" target {} "")))
;; feed mounted BEFORE blog so /feed is not captured by the :slug catch-all.
(define host-bl-app
  (host/make-app (list host/feed-routes host/blog-routes)))

;; ── render a registered post ────────────────────────────────────────
(host/blog-reset!)
(host/blog-register! "welcome" (host/blog-make "welcome" "Hello SX" "Served by lib/host."))

(host-bl-test
  "post 200"
  (dream-status (host-bl-app (host-bl-req "/welcome/")))
  200)
(host-bl-test
  "post content-type html"
  (contains? (dream-resp-header (host-bl-app (host-bl-req "/welcome/")) "content-type") "text/html")
  true)
(host-bl-test
  "post renders heading"
  (contains? (dream-resp-body (host-bl-app (host-bl-req "/welcome/"))) "<h1>Hello SX</h1>")
  true)
(host-bl-test
  "post renders body"
  (contains? (dream-resp-body (host-bl-app (host-bl-req "/welcome/"))) "Served by lib/host.")
  true)
;; trailing slash optional — /welcome and /welcome/ both resolve
(host-bl-test
  "no trailing slash also 200"
  (dream-status (host-bl-app (host-bl-req "/welcome")))
  200)

;; golden: endpoint body == content facade render of the same doc
(host-bl-test
  "golden = content/html"
  (dream-resp-body (host-bl-app (host-bl-req "/welcome/")))
  (content/html (host/blog-make "welcome" "Hello SX" "Served by lib/host.")))

;; ── unknown slug -> 404 ─────────────────────────────────────────────
(host-bl-test
  "unknown slug 404"
  (dream-status (host-bl-app (host-bl-req "/nope/")))
  404)
(host-bl-test
  "404 names the slug"
  (contains? (dream-resp-body (host-bl-app (host-bl-req "/nope/"))) "nope")
  true)

;; ── route precedence: domain routes win over the :slug catch-all ────
(feed/reset!)
(host-bl-test
  "/feed served by feed, not blog 404"
  (dream-status (host-bl-app (host-bl-req "/feed")))
  200)
(host-bl-test
  "/feed body is the feed envelope, not HTML"
  (contains? (dream-resp-body (host-bl-app (host-bl-req "/feed"))) "\"ok\":true")
  true)

(define
  host-bl-tests-run!
  (fn
    ()
    {:total (+ host-bl-pass host-bl-fail)
     :passed host-bl-pass
     :failed host-bl-fail
     :fails host-bl-fails}))