diff options
Diffstat (limited to 'src/Parser.hs')
| -rw-r--r-- | src/Parser.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index 29583e1..7773bae 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -500,6 +500,12 @@ testGuard = command "guard" $ Guard <$> cmdLine <*> param "" +testPacketLoss :: TestParser [TestStep] +testPacketLoss = command "packet_loss" $ PacketLoss + <$> param "" + <*> param "on" + <*> innerBlock + testWait :: TestParser [TestStep] testWait = do @@ -526,6 +532,7 @@ testStep = choice , testSend , testExpect , testGuard + , testPacketLoss , testWait ] |