Disable 4000 thread test for aheadly

This commit is contained in:
Harendra Kumar 2024-06-24 12:53:45 +05:30
parent a49e48f5d9
commit cbe7c4be04

View File

@ -490,10 +490,13 @@ main = hspec
replicate 2000 $ S.fromEffect $ threadDelay 1000000)
`shouldReturn` ()
-- Hanging on macOS CI
#ifdef DEVBUILD
it "aheadly crosses thread limit (4000 threads)" $
S.drain (fromAhead $ fold $
replicate 4000 $ S.fromEffect $ threadDelay 1000000)
`shouldReturn` ()
#endif
#ifdef DEVBUILD
describe "restricts concurrency and cleans up extra tasks" $ do