voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Dmitry Zuikov 2023-01-11 07:12:26 +03:00
parent 3ed75c7045
commit da7b56d4fc
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hbs2-storage-simple/test/Main.hs
View File

@ -17,6 +17,3 @@ main =
] ]

11
hbs2-storage-simple/test/TestSimpleStorage.hs
View File

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