diff options
author | Roman Smrž <roman.smrz@seznam.cz> | 2022-10-07 18:15:29 +0200 |
---|---|---|
committer | Roman Smrž <roman.smrz@seznam.cz> | 2022-10-07 18:28:23 +0200 |
commit | e2a44c2118c62817e26eb88ed3ac4f292b908047 (patch) | |
tree | 0f2fde73aac048c3bbbb9ddfa20f7553d661153f /src/Parser.hs | |
parent | bca59ef2624ca1d9c1874db6d6f8e9270db0dfb7 (diff) |
Packet loss command using netem qdisc
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 ] |