Commit 46907182 authored by Camil Staps's avatar Camil Staps 🐧

Merge branch 'master' into testevents-failreason

parents 65a1dcd7 74ba164b
Pipeline #9508 passed with stage
in 2 minutes and 49 seconds
......@@ -43,6 +43,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
/**
* Reasons for failing a test.
......
......@@ -37,6 +37,7 @@ where
Passed -> "passed"
Failed -> "failed"
Skipped -> "skipped"
Lost -> "lost"
JSONDecode{|EndEventType|} _ [JSONString eTypeStr : rest] = (mbEType, rest)
where
......@@ -44,8 +45,9 @@ where
"passed" -> Just Passed
"failed" -> Just Failed
"skipped" -> Just Skipped
"lost" -> Just Lost
_ -> Nothing
JSONDecode{|EndEventType|} _ nodes = (Nothing, nodes)
derive JSONEncode EndEvent
derive JSONDecode EndEvent
derive JSONEncode EndEvent, FailReason
derive JSONDecode EndEvent, FailReason
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