f57243c · streamly · git.iko.soy

git.iko.soy/streamly

on master help sign in

Avoid using dd, pipe data directly & truncate it using head

f57243cadithyaov6 years ago

benchmark/Streamly/Benchmark/FileSystem/Handle.hs+2−9

@@ -52,12 +52,6 @@ smallFileSize = 10 * 1024 * 1024

52bigFileSize :: Int

53bigFileSize = 100 * 1024 * 1024

55−blockSize :: Int

56−blockSize = 32768

57−

58−blockCount :: Int -> Int

59−blockCount size = (size + blockSize - 1) `div` blockSize

60−

61-------------------------------------------------------------------------------

55-------------------------------------------------------------------------------

62--

56--

63-------------------------------------------------------------------------------

57-------------------------------------------------------------------------------

@@ -75,9 +69,8 @@ main = do

75 "mkdir -p " ++ scratchDir

69 "mkdir -p " ++ scratchDir

76 ++ "; test -e " ++ infile

70 ++ "; test -e " ++ infile

77 ++ " || { echo \"creating input file " ++ infile

71 ++ " || { echo \"creating input file " ++ infile

72+ ++ "\" && head -c " ++ show size

78− ++ "\" && dd if=/dev/random of=" ++ infile

73+ ++ " </dev/urandom >" ++ infile

79− ++ " bs=" ++ show blockSize

80− ++ " count=" ++ show (blockCount size)

81 ++ ";}"

74 ++ ";}"

82 runProcess_ (shell (cmd inFileSmall smallFileSize))

75 runProcess_ (shell (cmd inFileSmall smallFileSize))

83 runProcess_ (shell (cmd inFileBig bigFileSize))

76 runProcess_ (shell (cmd inFileBig bigFileSize))