diff --git a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal.hs b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal.hs index 54e6fa16..353c255b 100644 --- a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal.hs +++ b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal.hs @@ -104,6 +104,12 @@ ncqTossBlock :: MonadUnliftIO m ncqTossBlock sto lbs = ncqPutBlock0 sto lbs False {-# INLINE ncqTossBlock #-} +-- FIXME: ncqLocate-slows-write + +-- FIXME: resources-exhausted +-- test-ncq debug off and test:root temp and test:dir:keep and test:ncq3:merkle:file ./f10g +-- test-ncq: openAnonymousTempFileFromDir: +-- resource exhausted (Too many open files) ncqPutBlock0 :: MonadUnliftIO m => NCQStorage -> LBS.ByteString diff --git a/hbs2-tests/test/NCQ3.hs b/hbs2-tests/test/NCQ3.hs index 2cb26a90..d0341e32 100644 --- a/hbs2-tests/test/NCQ3.hs +++ b/hbs2-tests/test/NCQ3.hs @@ -608,13 +608,15 @@ ncq3Tests = do hashes <- forConcurrently chu $ \chunk -> do ncqTossBlock ncq chunk >>= orThrowUser "can't save" - -- FIXME: handle-hardcode - let pt = toPTree (MaxSize 1024) (MaxNum 256) hashes -- FIXME: settings + none - m <- makeMerkle 0 pt $ \(_,_,bss) -> liftIO do - void $ ncqPutBlock ncq bss >>= orThrowUser "can't save" + -- -- FIXME: handle-hardcode + -- let pt = toPTree (MaxSize 1024) (MaxNum 256) hashes -- FIXME: settings - notice $ pretty m + -- m <- makeMerkle 0 pt $ \(_,_,bss) -> liftIO do + -- void $ ncqPutBlock ncq bss >>= orThrowUser "can't save" + + -- notice $ pretty m entry $ bindMatch "test:ncq3:merkle" $ nil_ $ \e -> runTest $ \TestEnv{..} -> do