From c2d32be3c556c1b9db806c854ce5ecd2e3c429d4 Mon Sep 17 00:00:00 2001
From: Wolfgang Walther <walther@technowledgy.de>
Date: Sat, 30 May 2026 21:29:46 +0200
Subject: [PATCH] test(spec): remove obsolete ANALYZE calls

These are now part of the with- helpers.
---
 test/spec/Main.hs       | 12 ++----------
 test/spec/SpecHelper.hs |  5 -----
 2 files changed, 2 insertions(+), 15 deletions(-)

diff --git a/test/spec/Main.hs b/test/spec/Main.hs
index d951430d4..46c6c8a51 100644
--- a/test/spec/Main.hs
+++ b/test/spec/Main.hs
@@ -132,12 +132,7 @@ main = do
       timezoneDisabled     = appDbs testCfgTimezoneDisabled
 
 
-  let analyze :: IO ()
-      analyze = do
-        analyzeTable "items"
-        analyzeTable "child_entities"
-
-      specs = uncurry describe <$> [
+  let specs = uncurry describe <$> [
           ("Feature.Auth.AudienceJwtSecretSpec"          , Feature.Auth.AudienceJwtSecretSpec.disabledSpec)
         , ("Feature.Auth.AuthSpec"                       , Feature.Auth.AuthSpec.spec)
         , ("Feature.ConcurrentSpec"                      , Feature.ConcurrentSpec.spec)
@@ -160,6 +155,7 @@ main = do
         , ("Feature.Query.Preferences.HandlingSpec"      , Feature.Query.Preferences.HandlingSpec.spec)
         , ("Feature.Query.Preferences.MaxAffectedSpec"   , Feature.Query.Preferences.MaxAffectedSpec.spec)
         , ("Feature.Query.QuerySpec"                     , Feature.Query.QuerySpec.spec)
+        , ("Feature.Query.RangeSpec"                     , Feature.Query.RangeSpec.spec)
         , ("Feature.Query.RawOutputTypesSpec"            , Feature.Query.RawOutputTypesSpec.spec)
         , ("Feature.Query.RelatedQueriesSpec"            , Feature.Query.RelatedQueriesSpec.spec)
         , ("Feature.Query.RpcSpec"                       , Feature.Query.RpcSpec.spec actualPgVersion)
@@ -172,10 +168,6 @@ main = do
   hspec $ do
     mapM_ (parallel . before withApp) specs
 
-    -- we analyze to get accurate results from EXPLAIN
-    parallel $ beforeAll_ analyze . before withApp $
-      describe "Feature.Query.RangeSpec" Feature.Query.RangeSpec.spec
-
     -- this test runs with a different server flag
     parallel $ before maxRowsApp $
       describe "Feature.Query.QueryLimitedSpec" Feature.Query.QueryLimitedSpec.spec
diff --git a/test/spec/SpecHelper.hs b/test/spec/SpecHelper.hs
index 86e0ab547..73cb1b182 100644
--- a/test/spec/SpecHelper.hs
+++ b/test/spec/SpecHelper.hs
@@ -19,7 +19,6 @@ import Data.List            (lookup)
 import Data.List.NonEmpty   (fromList)
 import Network.Wai.Test     (SResponse (simpleBody, simpleHeaders, simpleStatus))
 import System.IO.Unsafe     (unsafePerformIO)
-import System.Process       (readProcess)
 import Text.Regex.TDFA      ((=~))
 
 
@@ -256,10 +255,6 @@ testCfgAggregatesEnabled = baseCfg { configDbAggregates = True }
 testCfgTimezoneDisabled :: AppConfig
 testCfgTimezoneDisabled = baseCfg { configDbTimezoneEnabled = False }
 
-analyzeTable :: Text -> IO ()
-analyzeTable tableName =
-  void $ readProcess "psql" ["-U", "postgres", "--set", "ON_ERROR_STOP=1", "-a", "-c", toS $ "ANALYZE test.\"" <> tableName <> "\""] []
-
 rangeHdrs :: ByteRange -> [Header]
 rangeHdrs r = [rangeUnit, (hRange, renderByteRange r)]