asakul
/
libatrade
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

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

master
Denis Tereshkin 9 years ago
parent
46a4090665
commit
ea70ebe262
1 changed files with 1 additions and 3 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 4
      test/TestQuoteSourceClient.hs

4
test/TestQuoteSourceClient.hs
Unescape View File

@ -52,9 +52,7 @@ testTickStream = testCase "QuoteSource clients receives ticks" $ withContext (\c
timestamp = UTCTime (fromGregorian 2016 9 27) 16000, timestamp = UTCTime (fromGregorian 2016 9 27) 16000,
value = 1000, value = 1000,
volume = 1} volume = 1}
yield forkIO $ writeChan chan (Just tick)
writeChan chan (Just tick)
yield
recvdTick <- readChan clientChan recvdTick <- readChan clientChan
tick @=? recvdTick))) tick @=? recvdTick)))

Write Preview
Loading…
Cancel
Save