From da7b56d4fc0ee3d4a5cebd4986e56759b6f21ba0 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 11 Jan 2023 07:12:26 +0300
Subject: [PATCH] wip

---
 hbs2-storage-simple/test/Main.hs              |  3 ---
 hbs2-storage-simple/test/TestSimpleStorage.hs | 11 ++++++++---
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/hbs2-storage-simple/test/Main.hs b/hbs2-storage-simple/test/Main.hs
index 0a45420d..1855aa0e 100644
--- a/hbs2-storage-simple/test/Main.hs
+++ b/hbs2-storage-simple/test/Main.hs
@@ -17,6 +17,3 @@ main =
       ]
 
 
-
-
-
diff --git a/hbs2-storage-simple/test/TestSimpleStorage.hs b/hbs2-storage-simple/test/TestSimpleStorage.hs
index accd2ed9..8a9b8581 100644
--- a/hbs2-storage-simple/test/TestSimpleStorage.hs
+++ b/hbs2-storage-simple/test/TestSimpleStorage.hs
@@ -1,5 +1,6 @@
 module TestSimpleStorage where
 
+import Control.Monad
 import Data.Traversable
 import Data.Foldable
 import Control.Concurrent.Async
@@ -23,6 +24,10 @@ import HBS2.Storage
 import HBS2.Storage.Simple
 
 
+testSimpleStorageErrors :: IO ()
+testSimpleStorageErrors = do
+  undefined
+
 
 testSimpleStorageNoKeys :: IO ()
 testSimpleStorageNoKeys = do
@@ -69,7 +74,7 @@ testSimpleStorageRandomReadWrite = do
 
     assertBool "blocks directory exists" exists
 
-    worker <- async  (simpleStorageWorker storage)
+    workers <- replicateM 2 $ async  (simpleStorageWorker storage)
 
     let pieces = shrink [0x00 .. 0xFF] :: [[Word8]]
 
@@ -99,7 +104,7 @@ testSimpleStorageRandomReadWrite = do
 
       assertEqual "written data == read data" str result
 
-      let chuSize = 4
+      let chuSize = 16
 
       let chNum =
             let (n,r) = length piece `divMod` chuSize
@@ -116,7 +121,7 @@ testSimpleStorageRandomReadWrite = do
 
       pure ()
 
-    cancel worker
+    mapM_ cancel workers