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/Test.hs | |
| parent | bca59ef2624ca1d9c1874db6d6f8e9270db0dfb7 (diff) | |
Packet loss command using netem qdisc
Diffstat (limited to 'src/Test.hs')
| -rw-r--r-- | src/Test.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Test.hs b/src/Test.hs index ab7e125..5a45930 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -37,6 +37,7 @@ data TestStep = forall a. ExprType a => Let SourceLine VarName (Expr a) [TestSte | Send (Expr Process) (Expr Text) | Expect SourceLine (Expr Process) (Expr Regex) [TypedVarName Text] [TestStep] | Guard SourceLine (Expr Bool) + | PacketLoss (Expr Scientific) (Expr Node) [TestStep] | Wait newtype SourceLine = SourceLine Text |