mirror of
https://github.com/Smaug123/mystery-hunt-2023-reactivation
synced 2025-10-15 01:18:42 +00:00
21 lines
432 B
Forth
21 lines
432 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
|
|
Seq.rangeOrZero s
|
|
|> (=) (Seq.max s - Seq.min s)
|
|
|
|
prop
|
|
|> Check.QuickThrowOnFailure |