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

proper chunk writer test

This commit is contained in:
Dmitry Zuikov 2023-01-27 07:59:12 +03:00
parent ebaa2d7f74
commit 8c5615d8ae
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hbs2-tests/test/TestChunkWriter.hs
View File

@ -32,8 +32,8 @@ main :: IO ()
main = do main = do
-- let size = 1024*1024*1 -- let size = 1024*1024*1
let size = 1024*1024*4 let size = 256*1024
let chu = 256*1024 let chu = 500
g <- initialize $ U.fromList [0xFAFA, 0xBEBE, 0xC0C0] g <- initialize $ U.fromList [0xFAFA, 0xBEBE, 0xC0C0]
@ -52,9 +52,9 @@ main = do
w2 <- replicateM 8 $ async $ runChunkWriter cw 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" <+> "mb"
<+> pretty times <+> "times" <+> pretty times <+> "times"