patrick/mystery-hunt-2023-reactivation
1
0
Fork 0
mirror of https://github.com/Smaug123/mystery-hunt-2023-reactivation synced 2025-10-18 10:58:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

Format

Browse Source
This commit is contained in:
Smaug123
2023-01-16 13:48:06 +00:00
parent 9697bb5311
commit 3973c5eaff
6 changed files with 171 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Reactivation.Test/TestSeq.fs
View File

@@ -14,8 +14,8 @@ module TestSeq =
let prop (i : int) (s : int list) =
let s = i :: s
Seq.rangeOrZero s
|> (=) (Seq.max s - Seq.min s)
let actual = Seq.rangeOrZero s
let expected = Seq.max s - Seq.min s
expected = actual
prop
|> Check.QuickThrowOnFailure
prop |> Check.QuickThrowOnFailure