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:
voidlizard 2025-07-11 07:17:30 +03:00
parent d69a2d7595
commit d1aa0a6f2c
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/TestNCQ.hs
View File

@ -669,14 +669,14 @@ testFilterEmulate1 n TestEnv{..} = do
(t1,_) <- timeItT do (t1,_) <- timeItT do
for_ allShit $ \ha -> do for_ allShit $ \ha -> do
ncqLocate2 sto ha <&> maybe (-1) ncqEntrySize void $ ncqLocate2 sto ha
notice $ "lookup-no-filter" <+> pretty (realToFrac @_ @(Fixed E3) t1) notice $ "lookup-no-filter" <+> pretty (realToFrac @_ @(Fixed E3) t1)
(t2,_) <- timeItT do (t2,_) <- timeItT do
for_ allShit $ \ha -> do for_ allShit $ \ha -> do
unless (HS.member ha noHs) do unless (HS.member ha noHs) do
void $ ncqLocate2 sto ha <&> maybe (-1) ncqEntrySize void $ ncqLocate2 sto ha
notice $ "lookup-fake-filter" <+> pretty (realToFrac @_ @(Fixed E3) t2) notice $ "lookup-fake-filter" <+> pretty (realToFrac @_ @(Fixed E3) t2)
@ -684,7 +684,7 @@ testFilterEmulate1 n TestEnv{..} = do
for_ allShit $ \ha -> do for_ allShit $ \ha -> do
let here = IntSet.member (bucno ha) dumb let here = IntSet.member (bucno ha) dumb
when here do when here do
void $ ncqLocate2 sto ha <&> maybe (-1) ncqEntrySize void $ ncqLocate2 sto ha
notice $ "lookup-dumb-filter" <+> pretty (realToFrac @_ @(Fixed E3) t3) notice $ "lookup-dumb-filter" <+> pretty (realToFrac @_ @(Fixed E3) t3)
@ -692,7 +692,7 @@ testFilterEmulate1 n TestEnv{..} = do
for_ allShit $ \ha -> do for_ allShit $ \ha -> do
let here = Bloom.elem (coerce ha) bloom let here = Bloom.elem (coerce ha) bloom
when here do when here do
void $ ncqLocate2 sto ha <&> maybe (-1) ncqEntrySize void $ ncqLocate2 sto ha
notice $ "lookup-simple-bloom-filter" <+> pretty (realToFrac @_ @(Fixed E3) t4) notice $ "lookup-simple-bloom-filter" <+> pretty (realToFrac @_ @(Fixed E3) t4)