From 95e2468b3c92e6689a5de4a2c03a79b3ef035f8b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 2 Apr 2023 21:02:47 +0200
Subject: Disconnect commands

---
 src/Parser.hs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'src/Parser.hs')

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
     ]
-- 
cgit v1.2.3