fact: Definition doneTesting (st : State) : Result := if expectedFailure st then Success (numSuccessTests st + 1) (numDiscardedTests st) (summary st) ( if (stDoAnalysis st) then ("""result"": ""success"", ""tests"": " ++ (show (numSuccessTests st)) ++ ", ""discards"": " ++ (show (numDiscardedTests st))) else ("+++ Passed " ++ (show (numSuccessTests st)) ++ " tests (" ++ (show (numDiscardedTests st)) ++ " discards)" ++ newline) ) else NoExpectedFailure (numSuccessTests st) (summary st) ( if (stDoAnalysis st) then ("""result"": ""expected_failure"", ""tests"": " ++ (show (numSuccessTests st))) else ("*** Failed! Passed " ++ (show (numSuccessTests st))++ " tests (expected Failure)" ++ newline) ).
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrnat ssrbool eqtype div) ExtLib(Structures.Monad) SimpleIO(SimpleIO) QuickChick(RoseTrees RandomQC Generators Producer SemChecker) QuickChick(Show Checker State Classes) Coq.Strings.Ascii Coq.Strings.String List Recdef Arith.EqNat