From 1a8d66b1c767301f1845d09f247fec3395c9dea0 Mon Sep 17 00:00:00 2001
From: Chris McCormick <chris@mccormick.cx>
Date: Fri, 29 Mar 2024 20:47:38 +0000
Subject: [PATCH] Basic tests for shadow-cljs mode dev and release.

---
 src/sitefoxtest/e2etests.cljs | 52 +++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)

diff --git a/src/sitefoxtest/e2etests.cljs b/src/sitefoxtest/e2etests.cljs
index b722c49..e5ad0a6 100644
--- a/src/sitefoxtest/e2etests.cljs
+++ b/src/sitefoxtest/e2etests.cljs
@@ -85,6 +85,58 @@
     (.close browser))
   (done))
 
+(deftest basic-shadow-dev-test
+  (t/testing "Basic test of Sitefox on shadow-cljs."
+    (async done
+           (p/let [_ (log "Test: basic-shadow-dev-test")
+                   server (run-server "examples/shadow-cljs"
+                                      "npm i --no-save; npm run serve"
+                                      8000)]
+             (p/catch
+               (p/let [res (js/fetch base-url)
+                       text (.text res)]
+                 (log "Starting test checks.")
+                 (is (j/get-in server [:process :pid])
+                     "Server is running?")
+                 (is (j/get server :open)
+                     "Server port is open?")
+                 (is (j/get res :ok)
+                     "Was server response ok?")
+                 (is (includes? text "Hello")
+                     "Server response includes 'Hello' text?")
+                 (log "Test done. Killing server.")
+                 (j/call server :kill)
+                 (log "After server.")
+                 (print)
+                 (done))
+               #(catch-fail % done server))))))
+
+(deftest basic-compiled-shadow-test
+  (t/testing "Basic test of Sitefox on compiled shadow-cljs."
+    (async done
+           (p/let [_ (log "Test: basic-compiled-shadow-test")
+                   server (run-server "examples/shadow-cljs"
+                                      "npm i --no-save; npm run serve-live"
+                                      8000)]
+             (p/catch
+               (p/let [res (js/fetch base-url)
+                       text (.text res)]
+                 (log "Starting test checks.")
+                 (is (j/get-in server [:process :pid])
+                     "Server is running?")
+                 (is (j/get server :open)
+                     "Server port is open?")
+                 (is (j/get res :ok)
+                     "Was server response ok?")
+                 (is (includes? text "Hello")
+                     "Server response includes 'Hello' text?")
+                 (log "Test done. Killing server.")
+                 (j/call server :kill)
+                 (log "After server.")
+                 (print)
+                 (done))
+               #(catch-fail % done server))))))
+
 (deftest basic-site-test
   (t/testing "Basic test of Sitefox on nbb."
     (async done