From e1b21a0491b23f464ae266e4c2c364baa8a71204 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 29 Oct 2019 15:16:15 -0400 Subject: [PATCH] benchmark: Add --databases to benchmark sqlite databases Rescued from commit 11d6e2e260d70ba99e35464c19c2b2772ce9efaa which removed db benchmarks in favor of benchmarking arbitrary git-annex commands. Which is nice and general, but microbenchmarks are useful too. --- Database/Benchmark.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/Database/Benchmark.hs b/Database/Benchmark.hs index 7f0929757f..865ebcf3c9 100644 --- a/Database/Benchmark.hs +++ b/Database/Benchmark.hs @@ -64,13 +64,11 @@ getAssociatedFilesMissBench (BenchDb h num) = bench ("getAssociatedFiles from " getAssociatedKeyHitBench :: BenchDb -> Benchmark getAssociatedKeyHitBench (BenchDb h num) = bench ("getAssociatedKey from " ++ show num ++ " (hit)") $ nfIO $ do n <- getStdRandom (randomR (1,num)) - -- fromIKey because this ends up being used to get a Key - map fromIKey <$> SQL.getAssociatedKey (fileN n) (SQL.ReadHandle h) + SQL.getAssociatedKey (fileN n) (SQL.ReadHandle h) getAssociatedKeyMissBench :: BenchDb -> Benchmark getAssociatedKeyMissBench (BenchDb h num) = bench ("getAssociatedKey from " ++ show num ++ " (miss)") $ nfIO $ - -- fromIKey because this ends up being used to get a Key - map fromIKey <$> SQL.getAssociatedKey fileMiss (SQL.ReadHandle h) + SQL.getAssociatedKey fileMiss (SQL.ReadHandle h) addAssociatedFileOldBench :: BenchDb -> Benchmark addAssociatedFileOldBench (BenchDb h num) = bench ("addAssociatedFile to " ++ show num ++ " (old)") $ nfIO $ do