QuoteSource client test: send more than one tick in separate thread

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