summaryrefslogtreecommitdiff
path: root/src/Run
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2023-04-02 21:02:47 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2023-04-04 19:53:25 +0200
commit95e2468b3c92e6689a5de4a2c03a79b3ef035f8b (patch)
treede65bacdb672d473d9f9164ca20a3c5e67273055 /src/Run
parent71786719c2480090c1d2df88bc390b088185d7cb (diff)
Disconnect commands
Diffstat (limited to 'src/Run')
-rw-r--r--src/Run/Monad.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Run/Monad.hs b/src/Run/Monad.hs
index 221f6d7..5b55897 100644
--- a/src/Run/Monad.hs
+++ b/src/Run/Monad.hs
@@ -16,11 +16,13 @@ import Control.Monad.Except
import Control.Monad.Reader
import Data.Map (Map)
+import Data.Set (Set)
import Data.Scientific
import qualified Data.Text as T
import {-# SOURCE #-} GDB
import {-# SOURCE #-} Network
+import Network.Ip
import Output
import {-# SOURCE #-} Process
import Test
@@ -39,7 +41,9 @@ data TestEnv = TestEnv
data TestState = TestState
{ tsNetwork :: Network
, tsVars :: [(VarName, SomeVarValue)]
- , tsNodePacketLoss :: Map NodeName Scientific
+ , tsDisconnectedUp :: Set NetworkNamespace
+ , tsDisconnectedBridge :: Set NetworkNamespace
+ , tsNodePacketLoss :: Map NetworkNamespace Scientific
}
data TestOptions = TestOptions