wip

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

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