mirror of
https://github.com/Smaug123/agda-utils
synced 2025-10-05 19:48:42 +00:00
18 lines
425 B
Forth
18 lines
425 B
Forth
namespace AgdaUnusedOpens.Test
|
|
|
|
open AgdaUnusedOpens.Internals
|
|
open NUnit.Framework
|
|
open FsUnitTyped
|
|
open FsCheck
|
|
|
|
[<TestFixture>]
|
|
module TestSeq =
|
|
[<Test>]
|
|
let ``PBT for Seq.omit`` () =
|
|
let property (l1 : byte list) (x : byte) (l2 : byte list) =
|
|
Seq.omit (List.length l1) (l1 @ (x :: l2))
|
|
|> List.ofSeq
|
|
|> shouldEqual (l1 @ l2)
|
|
|
|
Check.QuickThrowOnFailure property
|