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/Parser.hs | |
| parent | 71786719c2480090c1d2df88bc390b088185d7cb (diff) | |
Disconnect commands
Diffstat (limited to 'src/Parser.hs')
| -rw-r--r-- | src/Parser.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index aafba2c..a550a3f 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -666,6 +666,21 @@ testGuard = command "guard" $ Guard <$> cmdLine <*> param "" +testDisconnectNode :: TestParser [TestStep] +testDisconnectNode = command "disconnect_node" $ DisconnectNode + <$> paramOrContext "" + <*> innerBlock + +testDisconnectNodes :: TestParser [TestStep] +testDisconnectNodes = command "disconnect_nodes" $ DisconnectNodes + <$> paramOrContext "" + <*> innerBlock + +testDisconnectUpstream :: TestParser [TestStep] +testDisconnectUpstream = command "disconnect_upstream" $ DisconnectUpstream + <$> paramOrContext "" + <*> innerBlock + testPacketLoss :: TestParser [TestStep] testPacketLoss = command "packet_loss" $ PacketLoss <$> param "" @@ -702,6 +717,9 @@ testStep = choice , testSend , testExpect , testGuard + , testDisconnectNode + , testDisconnectNodes + , testDisconnectUpstream , testPacketLoss , testWait ] |