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

test description

This commit is contained in:
voidlizard 2025-08-17 09:03:23 +03:00
parent 14bc9cff1e
commit 3067bb6e5a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hbs2-tests/test/NCQ3.hs
View File

@ -714,8 +714,13 @@ ncq3Tests = do
when (raw /= coerce ref) $ when (raw /= coerce ref) $
failure "refs:shape: last 32B != RAW_REF_KEY" failure "refs:shape: last 32B != RAW_REF_KEY"
brief "basic full storage test"
$ args [ arg "number (def: 100000)" "n"
, arg "del. probability (def: 0.10)" "pD"
, arg "ref probability (def: 0.01)" "pR"
]
entry $ bindMatch "test:ncq3:storage:basic" $ nil_ $ \e -> do $ entry $ bindMatch "test:ncq3:storage:basic" $ nil_ $ \e -> do
let (opts,args) = splitOpts [] e let (opts,args) = splitOpts [] e
let n = headDef 100000 [ fromIntegral x | LitIntVal x <- args ] let n = headDef 100000 [ fromIntegral x | LitIntVal x <- args ]
let pD = headDef 0.10 [ realToFrac x | LitScientificVal x <- drop 1 args ] let pD = headDef 0.10 [ realToFrac x | LitScientificVal x <- drop 1 args ]