From d1f00d188698c52c07a5881fc0088e4163976e5e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 30 Dec 2021 23:13:06 +0100
Subject: Test mode for erebos-tester

---
 src/Main.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 2c56a00..7fb6ff3 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -39,6 +39,7 @@ import State
 import Storage
 import Storage.Merge
 import Sync
+import Test
 
 data Options = Options
     { optServer :: ServerOptions
@@ -109,6 +110,8 @@ main = do
                         BC.putStrLn . showRefDigest . refDigest . storedRef . idData =<< interactiveIdentityUpdate idt
                     | otherwise -> error "invalid identity"
 
+        ["test"] -> runTestTool st
+
         args -> do
             opts <- case getOpt Permute options args of
                 (o, [], []) -> return (foldl (flip id) defaultOptions o)
-- 
cgit v1.2.3