diff options
author | Roman Smrž <roman.smrz@seznam.cz> | 2021-08-19 22:42:36 +0200 |
---|---|---|
committer | Roman Smrž <roman.smrz@seznam.cz> | 2021-08-19 22:42:36 +0200 |
commit | 66a1261c68f123b604622e4729d966974198e50e (patch) | |
tree | b8e01250f645e98177e9e800cd62014c19a1cf20 /src/Parser.hs | |
parent | 1c5cc6281d1320b3ad3ee586368c0c1dacce0cbe (diff) |
Wait command
Diffstat (limited to 'src/Parser.hs')
-rw-r--r-- | src/Parser.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index 97a64fc..d4c5a13 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -110,9 +110,14 @@ testExpect = do pname <- procName return $ Expect pname re +testWait :: TestParser TestStep +testWait = do + wsymbol "wait" + return $ Wait + parseTestDefinition :: TestParser Test parseTestDefinition = label "test definition" $ toplevel $ do - block (\name steps -> return $ Test name steps) header (testSpawn <|> testSend <|> testExpect) + block (\name steps -> return $ Test name steps) header (testSpawn <|> testSend <|> testExpect <|> testWait) where header = do wsymbol "test" lexeme $ TL.toStrict <$> takeWhileP (Just "test name") (/=':') |