From d5b967834ff328c7582f9573d9ec1bfd00785e5a Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 15 Dec 2023 09:25:56 -1000
Subject: [PATCH] dev:web: add tests: --base-url, --file-url (disabled)
 [#2127], [#2139]

---
 hledger-web/Hledger/Web/Test.hs | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/hledger-web/Hledger/Web/Test.hs b/hledger-web/Hledger/Web/Test.hs
index 861390aa6..283285407 100644
--- a/hledger-web/Hledger/Web/Test.hs
+++ b/hledger-web/Hledger/Web/Test.hs
@@ -106,6 +106,13 @@ hledgerWebTest = do
       statusIs 200
       bodyContains "accounts"
 
+    yit "hyperlinks use a base url made from the default host and port" $ do
+      get JournalR
+      statusIs 200
+      let defaultbaseurl = defbaseurl defhost defport
+      bodyContains ("href=\"" ++ defaultbaseurl)
+      bodyContains ("src=\"" ++ defaultbaseurl)
+
     -- WIP
     -- yit "shows the add form" $ do
     --   get JournalR
@@ -140,3 +147,21 @@ hledgerWebTest = do
       bodyContains "id=\"transaction-2-1\""
       bodyContains "id=\"transaction-2-2\""
 
+  runTests "hledger-web with --base-url"
+    [("base-url","https://base")] nulljournal $ do
+
+    yit "hyperlinks respect --base-url" $ do
+      get JournalR
+      statusIs 200
+      bodyContains "href=\"https://base"
+      bodyContains "src=\"https://base"
+
+  runTests "hledger-web with --base-url, --file-url"
+    [("base-url","https://base"), ("file-url","https://files")] nulljournal $ do
+
+    yit "static file hyperlinks respect --file-url, others respect --base-url" $ do
+      get JournalR
+      statusIs 200
+      bodyContains "href=\"https://base"
+      bodyContains "src=\"https://files"
+