mirror of
https://github.com/Smaug123/mystery-hunt-2023-reactivation
synced 2025-10-13 00:18:45 +00:00
22 lines
474 B
Forth
22 lines
474 B
Forth
namespace Reactivation.Test
|
|
|
|
open FsUnitTyped
|
|
open NUnit.Framework
|
|
open Reactivation
|
|
open FsCheck
|
|
|
|
[<TestFixture>]
|
|
module TestSeq =
|
|
|
|
[<Test>]
|
|
let ``Seq.range works`` () : unit =
|
|
Seq.rangeOrZero Seq.empty |> shouldEqual 0
|
|
|
|
let prop (i : int) (s : int list) =
|
|
let s = i :: s
|
|
let actual = Seq.rangeOrZero s
|
|
let expected = Seq.max s - Seq.min s
|
|
expected = actual
|
|
|
|
prop |> Check.QuickThrowOnFailure
|