From 15ea23acdb00fa964d91d440274e3a78bd115083 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 30 Aug 2016 16:29:22 -0400 Subject: Added basic test suite. --- keysafe.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'keysafe.hs') diff --git a/keysafe.hs b/keysafe.hs index 0f32ac1..3bb5793 100644 --- a/keysafe.hs +++ b/keysafe.hs @@ -14,6 +14,7 @@ import UI import Encryption import Entropy import ExpensiveHash +import Tests import Cost import SecretKey import Share @@ -69,6 +70,8 @@ dispatch cmdline ui storagelocations tunables possibletunables = do (CmdLine.serverPort $ CmdLine.serverConfig cmdline) go CmdLine.Benchmark _ = benchmarkTunables tunables + go CmdLine.Test _ = + runTests backup :: StorageLocations -> UI -> Tunables -> SecretKeySource -> SecretKey -> IO () backup storagelocations ui tunables secretkeysource secretkey = do @@ -253,7 +256,7 @@ restore storagelocations ui possibletunables secretkeydest = do ] -- | Try each possible tunable until the initial set of --- shares are found, the return the shares, and +-- shares are found, and return the shares, and -- ShareIdents to download subsequent sets. downloadInitialShares :: StorageLocations -- cgit v1.2.3