From cc87cfa250ab8d8425c6a8128c9d81c5d7a3c0ec Mon Sep 17 00:00:00 2001
From: Chuck Grindel <chuck.grindel@gmail.com>
Date: Fri, 5 Jan 2024 15:20:57 -0700
Subject: [PATCH] Disable the test that is causing the OOM error.

---
 rules_haskell_tests/tests/RunTests.hs | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

diff --git a/rules_haskell_tests/tests/RunTests.hs b/rules_haskell_tests/tests/RunTests.hs
index 349fde5ee..870da9b94 100644
--- a/rules_haskell_tests/tests/RunTests.hs
+++ b/rules_haskell_tests/tests/RunTests.hs
@@ -142,17 +142,15 @@ main = hspec $  around_ printStatsHook $ do
       let p (stdout, stderr) = not $ any ("error" `isInfixOf`) [stdout, stderr]
       outputSatisfy p (bazel ["run", "//tests/repl-name-conflicts:lib@repl", "--", "-ignore-dot-ghci", "-e", "stdin"])
 
-    it "Repl works with remote_download_toplevel" $ do
-      -- This test has a tendency to fail with Exit Code: ExitFailure (-9) on the GitHub macos 
-      -- runners. To give it every chance to succeed, we shutdown Bazel to provide as much 
-      -- memory as possible.
-      shutdownBazel "."
-      let p (stdout, stderr) = not $ any ("error" `isInfixOf`) [stdout, stderr]
-      withSystemTempDirectory "bazel_disk_cache" $ \tmp_disk_cache -> do
-        assertSuccess $ bazel ["run", "//tests/multi_repl:c_only_repl", "--disk_cache=" <> tmp_disk_cache]
-        assertSuccess $ bazel ["clean"]
-        outputSatisfy p
-          (bazel ["run", "//tests/multi_repl:c_only_repl", "--disk_cache=" <> tmp_disk_cache, "--remote_download_toplevel"])
+    -- GH2096: This test is flaky in CI using the MacOS GitHub runners. The flakiness is slowing 
+    -- development on other features. Disable this test until a satisfying solution is found.
+    -- it "Repl works with remote_download_toplevel" $ do
+    --   let p (stdout, stderr) = not $ any ("error" `isInfixOf`) [stdout, stderr]
+    --   withSystemTempDirectory "bazel_disk_cache" $ \tmp_disk_cache -> do
+    --     assertSuccess $ bazel ["run", "//tests/multi_repl:c_only_repl", "--disk_cache=" <> tmp_disk_cache]
+    --     assertSuccess $ bazel ["clean"]
+    --     outputSatisfy p
+    --       (bazel ["run", "//tests/multi_repl:c_only_repl", "--disk_cache=" <> tmp_disk_cache, "--remote_download_toplevel"])
 
   buildAndTest "../examples"
   buildAndTest "../tutorial"