diff --git a/hbs2-tests/test/Main.hs b/hbs2-tests/test/Main.hs index 963f8eba..dca36eb1 100644 --- a/hbs2-tests/test/Main.hs +++ b/hbs2-tests/test/Main.hs @@ -253,8 +253,6 @@ runFakePeer se env = do , blkChunk = getChunk storage , blkGetHash = getSession se sBlockHash - -- И ЧТО ТУТ ДЕЛАТЬ. - -- ЗАПИСАТЬ ЧАНК В ФАЙЛ КУДА-ТО НА TMP (КУДА? -- КАК ТОЛЬКО ПРИНЯЛИ ВСЕ ЧАНКИ (ПРИШЁЛ ПОСЛЕДНИЙ ЧАНК): -- СЧИТАЕМ ХЭШ ТОГО, ЧТО ПОЛУЧИЛОСЬ -- ЕСЛИ ПОЛУЧИЛОСЬ ХОРОШО --- ТО: @@ -302,14 +300,6 @@ runFakePeer se env = do -- ЧАНКИ, ПО МНОГУ РАЗ. А МЫ БУДЕМ ХЭШИ СЧИТАТЬ. -- ТАК НЕ ПОЙДЕТ -- ТАК ЧТО ТУТ ЖДЁМ, ДОПУСТИМ 2*mbSize и отваливаемся - - debug $ "got chunk" <+> pretty p - <+> pretty h - <+> pretty n - <+> parens ("off:" <+> pretty offset) - <+> pretty (B8.length bs) - -- <+> parens (pretty mbSize) - -- <+> braces ("chunkSize:" <+> pretty mbChSize) } runPeer env @@ -340,7 +330,7 @@ test1 = do mtS <- emptySessions @Fake let ee = zip (repeat mtS) envs - void $ race (pause (5 :: Timeout 'Seconds)) $ do + void $ race (pause (2 :: Timeout 'Seconds)) $ do peerz <- mapM (async . uncurry runFakePeer) ee @@ -367,7 +357,7 @@ test1 = do pure () - pause ( 2 :: Timeout 'Seconds) + pause ( 1 :: Timeout 'Seconds) mapM_ cancel peerz