diff options
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 |