Simon Jakobi pushed to branch wip/sjakobi/nonmoving-gc-test-fixes at Glasgow Haskell Compiler / GHC

Commits:

• 1ac1d554
  by Simon Jakobi at 2026-07-30T10:43:09+02:00

  testsuite: Make listThreads1 insensitive to the RTS's own threads
  
  listThreads1 expected `listThreads` to return exactly [ThreadId 1]. That
  holds only under a non-threaded RTS. Under a threaded RTS however there
  are more threads present, so we change the test to simply check that
  `myThreadId` is present in the list.
  
  Assisted-by: Claude Opus 5
  

2 changed files:

• libraries/base/tests/listThreads1.hs
• libraries/base/tests/listThreads1.stdout

Changes:

 import GHC.Conc.Sync

+-- Regression test for the JS backend's ListThreadsOp, which used to omit the

+-- running thread. Whatever other threads the RTS has is irrelevant here.

 main :: IO ()

-main = listThreads >>= print

+main = do

+  tid <- myThreadId

+  ts <- listThreads

+  print (tid `elem` ts)

-[ThreadId 1]

+True