From c63c77112019c087b9d512cb8b67526f05c3b6fe Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 18 Jan 2023 20:18:09 +0300
Subject: [PATCH] wip

---
 hbs2-tests/test/Main.hs | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

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