diff --git a/test/TestQuoteSourceClient.hs b/test/TestQuoteSourceClient.hs
index 1a0f10d..3b2cdf6 100644
--- a/test/TestQuoteSourceClient.hs
+++ b/test/TestQuoteSourceClient.hs
@@ -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)))