Added basic test suite.

1 files changed, 4 insertions, 1 deletions

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