mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

reduce the amount of subdirectories created by the fuzz tester to saner limit

Browse source
This commit is contained in:
Joey Hess 2013-05-26 16:15:25 -04:00
parent 9978269b55
commit 469b3859fc
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Command/FuzzTest.hs
View file

@ -131,15 +131,20 @@ mkFuzzFile file dirs = FuzzFile $ joinPath (map toFilePath dirs) </> ("fuzzfile_
mkFuzzDir :: Int -> FuzzDir mkFuzzDir :: Int -> FuzzDir
mkFuzzDir n = FuzzDir $ "fuzzdir_" ++ show n mkFuzzDir n = FuzzDir $ "fuzzdir_" ++ show n
{- File is placed inside a directory hierarchy up to 4 subdirectories deep. -}
genFuzzFile :: IO FuzzFile genFuzzFile :: IO FuzzFile
genFuzzFile = do genFuzzFile = do
n <- getStdRandom $ randomR (0, 5) n <- getStdRandom $ randomR (0, 4)
dirs <- replicateM n genFuzzDir dirs <- replicateM n genFuzzDir
file <- show <$> (getStdRandom random :: IO Int) file <- show <$> (getStdRandom random :: IO Int)
return $ mkFuzzFile file dirs return $ mkFuzzFile file dirs
{- Only 16 distinct subdirectories are used. When nested 4 deep, this
- yields 69904 total directories max, which is below the default Linux
- inotify limit of 81920. The goal is not to run the assistant out of
- inotify descriptors. -}
genFuzzDir :: IO FuzzDir genFuzzDir :: IO FuzzDir
genFuzzDir = mkFuzzDir <$> (getStdRandom random :: IO Int) genFuzzDir = mkFuzzDir <$> (getStdRandom (randomR (1,16)) :: IO Int)
localFile :: FilePath -> Bool localFile :: FilePath -> Bool
localFile f localFile f