We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 36b06f0 commit 03c7125Copy full SHA for 03c7125
tests/Hedgehog.Tests/PropertyTests.fs
@@ -81,13 +81,9 @@ let propertyTests = testList "Property tests" [
81
| GaveUp -> failwith "Initial report should be Failed, not GaveUp"
82
| Failed failure1 ->
83
count <- 0
84
- let recheckData =
85
- match failure1.RecheckInfo with
86
- | Some { Data = recheckData } -> recheckData
87
- | _ -> failwith "Impossible since this is a an F# test"
88
let report2 =
89
Property.reportRecheck
90
- (RecheckData.serialize recheckData)
+ (RecheckData.serialize failure1.RecheckInfo.Value.Data)
91
prop
92
match report2.Status with
93
| OK -> failwith "Recheck report should be Failed, not OK"
0 commit comments