diff --git a/hbs2-tests/test/Peer2Main.hs b/hbs2-tests/test/Peer2Main.hs index b4b927db..1a7b1612 100644 --- a/hbs2-tests/test/Peer2Main.hs +++ b/hbs2-tests/test/Peer2Main.hs @@ -404,11 +404,18 @@ mkAdapter cww = do -- мы не знаем, что там еще 3 события. -- -- таким образом, ни про какое событие нельзя понять, - -- что оно последнее + -- что оно последнее, если у нас 4 потока. -- -- как же нам узнать, что пришёл последний блок и можно -- его коммитить? -- + -- + -- вариант N1. повесить "добивающий монитор". + -- Здесь только апдейтить счётчики, а вот монитор будет уже + -- смотреть что как и коммитить. + -- + -- Монитор может быть протухающим. + -- Как это сделать? let mbDone = (maxOffLast + fromIntegral mbChSize) > fromIntegral mbSize && writtenLast >= ( (mbSize * 2) `div` 3 )