Commit 74ba164b authored by Steffen Michels's avatar Steffen Michels

Merge branch 'lost-events-constructor' into 'master'

Add Lost EndEventType

See merge request !108
parents 52e00262 d65834e4
Pipeline #9489 passed with stage
in 1 minute and 47 seconds
......@@ -42,6 +42,7 @@ from Text.JSON import generic JSONEncode, generic JSONDecode, :: JSONNode, :: Ma
:: EndEventType = Passed //* The test passed
| Failed //* The test failed
| Skipped //* The test was not executed, but should be executed and pass for future versions
| Lost //* The test crashed
derive JSONEncode TestEvent, StartEvent, EndEvent
derive JSONDecode TestEvent, StartEvent, EndEvent
......@@ -37,6 +37,7 @@ where
Passed -> "passed"
Failed -> "failed"
Skipped -> "skipped"
Lost -> "lost"
JSONDecode{|EndEventType|} _ [JSONString eTypeStr : rest] = (mbEType, rest)
where
......@@ -44,6 +45,7 @@ where
"passed" -> Just Passed
"failed" -> Just Failed
"skipped" -> Just Skipped
"lost" -> Just Lost
_ -> Nothing
JSONDecode{|EndEventType|} _ nodes = (Nothing, nodes)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment