From 5870130267656c59dc635d17c031dbce98dc5fa8 Mon Sep 17 00:00:00 2001
From: KtorZ <matthias.benkort@gmail.com>
Date: Sat, 22 Oct 2022 14:31:19 +0200
Subject: [PATCH] Remove redundant end-to-end scenario

  And skip non essential indexes for the quick-sync scenarios.
---
 test/Test/KupoSpec.hs | 21 ++-------------------
 1 file changed, 2 insertions(+), 19 deletions(-)

diff --git a/test/Test/KupoSpec.hs b/test/Test/KupoSpec.hs
index 4b2b85c4..4d7126b8 100644
--- a/test/Test/KupoSpec.hs
+++ b/test/Test/KupoSpec.hs
@@ -181,30 +181,13 @@ varOgmiosPort = "OGMIOS_PORT"
 
 spec :: Spec
 spec = skippableContext "End-to-end" $ \manager -> do
-    specify "in memory" $ \(_, tr, cfg, httpLogs) -> do
-        env <- newEnvironment $ cfg
-            { workDir = InMemory
-            , since = Just GenesisPoint
-            , patterns = [MatchAny IncludingBootstrap]
-            }
-        let HttpClient{..} = newHttpClientWith manager (serverHost cfg, serverPort cfg) httpLogs
-        let timeLimit = case chainProducer cfg of
-                CardanoNode{} -> 5
-                Ogmios{} -> 10
-        timeoutOrThrow timeLimit (debug httpLogs) $ race_
-            (kupo tr `runWith` env)
-            (do
-                waitUntilM $ do
-                    matches <- getAllMatches NoStatusFlag
-                    pure (length matches > 10)
-                healthCheck (serverHost cfg) (serverPort cfg)
-            )
-
     forM_ eraBoundaries $ \(era, point) -> specify ("quick sync through " <> era) $ \(_, tr, cfg, httpLogs) -> do
         env <- newEnvironment $ cfg
             { workDir = InMemory
+
             , since = Just point
             , patterns = [MatchAny IncludingBootstrap]
+            , deferIndexes = SkipNonEssentialIndexes
             }
         let HttpClient{..} = newHttpClientWith manager (serverHost cfg, serverPort cfg) httpLogs
         timeoutOrThrow 5 (debug httpLogs) $ race_