diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2022-06-07 21:35:48 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2022-06-07 21:35:48 +0200 |
| commit | 62251c102c57d4c12da6923dc0ea5747cfb3ef0c (patch) | |
| tree | 07abceaa52f9bec0e48d9d3eac9b85175753433c /src/Test.hs | |
| parent | 202fd8ba096ff5a80102cbec2922eef94061458b (diff) | |
Source line info for test steps from parsing
Diffstat (limited to 'src/Test.hs')
| -rw-r--r-- | src/Test.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Test.hs b/src/Test.hs index ab97bc7..404d965 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -1,6 +1,7 @@ module Test ( Test(..), TestStep(..), + SourceLine(..), ProcName(..), textProcName, unpackProcName, NodeName(..), textNodeName, unpackNodeName, @@ -29,9 +30,11 @@ data Test = Test data TestStep = Spawn ProcName NodeName | Send ProcName (Expr Text) - | Expect ProcName (Expr Regex) [VarName] + | Expect SourceLine ProcName (Expr Regex) [VarName] | Wait +newtype SourceLine = SourceLine Text + newtype NodeName = NodeName Text deriving (Eq, Ord) |