From a3dc78f3ffafbbccf3b34f28af58a204b751f6b4 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 16 Nov 2020 15:36:17 -0800
Subject: [PATCH] web: --test: don't require ./config/settings.yml

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

diff --git a/hledger-web/Hledger/Web/Test.hs b/hledger-web/Hledger/Web/Test.hs
index d3a5f5d6d..3e1368ead 100644
--- a/hledger-web/Hledger/Web/Test.hs
+++ b/hledger-web/Hledger/Web/Test.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE OverloadedStrings #-}
+
 module Hledger.Web.Test (
   hledgerWebTest
 ) where
@@ -23,7 +25,18 @@ hledgerWebTest :: IO ()
 hledgerWebTest = do
   putStrLn $ "Running tests for " ++ prognameandversion -- ++ " (--test --help for options)"
 
-  conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing){ csParseExtra = parseExtra }
+  -- loadConfig fails without ./config/settings.yml; use a hard-coded one
+  let conf = AppConfig{
+               appEnv = Testing
+              ,appPort = 3000  -- will it clash with a production instance ? doesn't seem to
+              ,appRoot = "http://localhost:3000"
+              ,appHost = "*4"
+              ,appExtra = Extra
+                          { extraCopyright  = ""
+                          , extraAnalytics  = Nothing
+                          , extraStaticRoot = Nothing
+                          }
+                  }
 
   -- https://hackage.haskell.org/package/yesod-test-1.6.10/docs/Yesod-Test.html
   -- http://hspec.github.io/writing-specs.html