From 8c5615d8aead79849119566f5073808f8a93b2dc Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Fri, 27 Jan 2023 07:59:12 +0300
Subject: [PATCH] proper chunk writer test

---
 hbs2-tests/test/TestChunkWriter.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/hbs2-tests/test/TestChunkWriter.hs b/hbs2-tests/test/TestChunkWriter.hs
index 5191d4c7..b5f8f4fa 100644
--- a/hbs2-tests/test/TestChunkWriter.hs
+++ b/hbs2-tests/test/TestChunkWriter.hs
@@ -32,8 +32,8 @@ main :: IO ()
 main = do
 
   -- let size = 1024*1024*1
-  let size = 1024*1024*4
-  let chu = 256*1024
+  let size = 256*1024
+  let chu = 500
 
   g <- initialize $ U.fromList [0xFAFA, 0xBEBE, 0xC0C0]
 
@@ -52,9 +52,9 @@ main = do
 
     w2 <- replicateM 8 $ async $ runChunkWriter cw
 
-    let times = 100
+    let times = 500
 
-    let info = show $ "writing" <+> pretty (show (realToFrac size / 1024 :: Fixed E2))
+    let info = show $ "writing" <+> pretty (show (realToFrac size / (1024*1024) :: Fixed E2))
                                 <+> "mb"
                                 <+> pretty times <+> "times"