diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2023-04-02 21:02:47 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2023-04-04 19:53:25 +0200 |
| commit | 95e2468b3c92e6689a5de4a2c03a79b3ef035f8b (patch) | |
| tree | de65bacdb672d473d9f9164ca20a3c5e67273055 /src/Test.hs | |
| parent | 71786719c2480090c1d2df88bc390b088185d7cb (diff) | |
Disconnect commands
Diffstat (limited to 'src/Test.hs')
| -rw-r--r-- | src/Test.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Test.hs b/src/Test.hs index 0d96902..af1bace 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -42,6 +42,9 @@ data TestStep = forall a. ExprType a => Let SourceLine (TypedVarName a) (Expr a) | Send (Expr Process) (Expr Text) | Expect SourceLine (Expr Process) (Expr Regex) [TypedVarName Text] [TestStep] | Guard SourceLine (Expr Bool) + | DisconnectNode (Expr Node) [TestStep] + | DisconnectNodes (Expr Network) [TestStep] + | DisconnectUpstream (Expr Network) [TestStep] | PacketLoss (Expr Scientific) (Expr Node) [TestStep] | Wait |