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