QuoteSourceClient test: bugfix

9 years ago · 478b2ff15e
1 changed files with 1 additions and 1 deletions
--- a/test/TestQuoteSourceClient.hs
+++ b/test/TestQuoteSourceClient.hs
@ -52,7 +52,7 @@ testTickStream = testCase "QuoteSource clients receives ticks" $ withContext (\c
				@@ -52,7 +52,7 @@ testTickStream = testCase "QuoteSource clients receives ticks" $ withContext (\c
          timestamp = UTCTime (fromGregorian 2016 9 27) 16000,
          value = 1000,
          volume = 1}
-      forkIO $ writeChan chan (Just tick)
+      forkIO $ forever $ writeChan chan (Just tick)
      recvdTick <- readChan clientChan
      tick @=? recvdTick)))