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

real-test

This commit is contained in:
voidlizard 2025-01-01 11:37:06 +03:00
parent 98be2b056b
commit fddf121371
1 changed files with 23 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
hbs2-git3/app/Main.hs
View File

@ -694,8 +694,11 @@ theDict = do
liftIO $ print $ pretty hash <+> pretty ssize liftIO $ print $ pretty hash <+> pretty ssize
go (succ n) go (succ n)
entry $ bindMatch "test:git:log:index:flat:search:binary:test" $ nil_ \case entry $ bindMatch "test:reflog:index:search:binary:test" $ nil_ $ const $ lift do
[ StringLike fn ] -> do
files <- listObjectIndexFiles
forConcurrently_ files $ \(fn,_) -> do
lbs <- liftIO $ LBS.readFile fn lbs <- liftIO $ LBS.readFile fn
@ -721,9 +724,7 @@ theDict = do
for_ hashes $ \h -> do for_ hashes $ \h -> do
-- found <- binSearchBS 24 (BS.take 20 . BS.drop 4) ( show . pretty . GitHash ) (coerce h) file -- found <- binSearchBS 24 (BS.take 20 . BS.drop 4) ( show . pretty . GitHash ) (coerce h) file
found <- liftIO $ binarySearchBS 56 (BS.take 20 . BS.drop 4) (coerce h) file found <- liftIO $ binarySearchBS 56 (BS.take 20 . BS.drop 4) (coerce h) file
liftIO $ print $ pretty h <+> pretty (isJust found) liftIO $ notice $ pretty h <+> pretty (isJust found)
_ -> throwIO (BadFormException @C nil)
entry $ bindMatch "reflog:index:search" $ nil_ $ \syn -> lift $ flip runContT pure do entry $ bindMatch "reflog:index:search" $ nil_ $ \syn -> lift $ flip runContT pure do