splitAt is consistent

dotnet · Jul 29, 2015 · e23a20d · e23a20d
1 parent 90944a4
commit e23a20d
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/fsharp/FSharp.Core.PropertyTests/CollectionModulesConsistency.fs b/src/fsharp/FSharp.Core.PropertyTests/CollectionModulesConsistency.fs
@@ -972,6 +972,18 @@ let ``sumBy is consistent`` () =
     Check.QuickThrowOnFailure sumBy<string>
     Check.QuickThrowOnFailure sumBy<float>
 
+let splitAt<'a when 'a : equality> (xs : 'a []) index =
+    // no seq version
+    let l = run (fun () -> xs |> List.ofArray |> List.splitAt index |> fun (a,b) -> List.toArray a,List.toArray b)
+    let a = run (fun () -> xs |> Array.splitAt index)
+    l = a
+
+[<Test>]
+let ``splitAt is consistent`` () =
+    Check.QuickThrowOnFailure splitAt<int>
+    Check.QuickThrowOnFailure splitAt<string>
+    Check.QuickThrowOnFailure splitAt<NormalFloat>
+
 let splitInto<'a when 'a : equality> (xs : 'a []) count =
     let s = run (fun () -> xs |> Seq.splitInto count |> Seq.map Seq.toArray |> Seq.toArray)
     let l = run (fun () -> xs |> List.ofArray |> List.splitInto count |> Seq.map Seq.toArray |> Seq.toArray)