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-17 09:10:07 +03:00
parent 99252cbdf0
commit 85399d9777
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
hbs2-tests/test/Main.hs
View File

@ -16,13 +16,15 @@ import Prettyprinter
import System.Directory import System.Directory
import System.FilePath.Posix import System.FilePath.Posix
import System.IO import System.IO
import Data.Char
import Data.ByteString.Lazy.Char8 qualified as B8
data Fake data Fake
instance HasPeer Fake where instance HasPeer Fake where
newtype instance Peer Fake = FakePeer Word8 newtype instance Peer Fake = FakePeer Word8
deriving newtype (Hashable,Num,Enum) deriving newtype (Hashable,Num,Enum,Real,Integral)
deriving stock (Eq,Ord,Show) deriving stock (Eq,Ord,Show)
@ -60,13 +62,18 @@ runFakePeer p = do
storage <- simpleStorageInit opts :: IO (SimpleStorage HbSync) storage <- simpleStorageInit opts :: IO (SimpleStorage HbSync)
let size = 1024*1024
let blk = B8.concat [ fromString (show x) | x <- replicate size (fromIntegral p :: Int) ]
debug $ pretty $ show (B8.take 10 blk)
pure () pure ()
test1 :: IO () test1 :: IO ()
test1 = do test1 = do
let peers = [0..3] :: [Peer Fake] let peers = [0..2] :: [Peer Fake]
peerz <- mapM (async . runFakePeer) peers peerz <- mapM (async . runFakePeer) peers