Track down unconditional wait in test and find replacement

In the testsuit, there are a lot of places using the unconditional wait with timeout. We might want to sweep them out. By comming up with conditional wait instead of uncontional wait with timeout.

* See example unconditional wait https://github.com/haskell/haskell-language-server/issues/3736#issuecomment-1932740101
* [ ] #4300
* [x] #4144
