@@ -78,7 +78,7 @@ withSearch' modScribeCfg = withResource (setupSearch modScribeCfg) teardownSearc
78esTests :: TestTree
78esTests :: TestTree
79esTests = testGroup "elasticsearch scribe"
79esTests = testGroup "elasticsearch scribe"
81− withSearch $ \setup -> testCase "it flushes to elasticsearch" $ withTestLogging setup $ \done -> do
81+ withSearch' (\c -> c { essIndexSharding = NoIndexSharding}) $ \setup -> testCase "it flushes to elasticsearch" $ withTestLogging setup $ \done -> do
82 $(logT) (ExampleCtx True) mempty InfoS "A test message"
82 $(logT) (ExampleCtx True) mempty InfoS "A test message"
83 liftIO $ do
83 liftIO $ do
@@ -87,7 +87,7 @@ esTests = testGroup "elasticsearch scribe"
87 let l = head logs
87 let l = head logs
88 l ^? key "_source" . key "msg" . _String @?= Just "A test message"
88 l ^? key "_source" . key "msg" . _String @?= Just "A test message"
89 l ^? key "_source" . key "data" . key "whatever::b" . _Bool @?= Just True
89 l ^? key "_source" . key "data" . key "whatever::b" . _Bool @?= Just True
90− , withSearch' (\c -> c { essIndexSharding = DailyIndexSharding}) $ \setup -> testCase "date-based index sharding" $ do
90+ , withSearch $ \setup -> testCase "date-based index sharding" $ do
91 let t1 = mkTime 2016 1 2 3 4 5
91 let t1 = mkTime 2016 1 2 3 4 5
92 fakeClock <- newTVarIO t1
92 fakeClock <- newTVarIO t1
93 withTestLogging' (set logEnvTimer (readTVarIO fakeClock)) setup $ \done -> do
93 withTestLogging' (set logEnvTimer (readTVarIO fakeClock)) setup $ \done -> do