From e3ced2811a4b3bcfd1630be7192d65893dea8270 Mon Sep 17 00:00:00 2001 From: Steffen Forkmann Date: Sat, 22 Oct 2016 09:51:38 +0200 Subject: [PATCH] Use runAndCheckErrorType for init check --- .../CollectionModulesConsistency.fs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/fsharp/FSharp.Core.Unittests/FSharp.Core/Microsoft.FSharp.Collections/CollectionModulesConsistency.fs b/src/fsharp/FSharp.Core.Unittests/FSharp.Core/Microsoft.FSharp.Collections/CollectionModulesConsistency.fs index acf752ff8cd..f979844bd0a 100644 --- a/src/fsharp/FSharp.Core.Unittests/FSharp.Core/Microsoft.FSharp.Collections/CollectionModulesConsistency.fs +++ b/src/fsharp/FSharp.Core.Unittests/FSharp.Core/Microsoft.FSharp.Collections/CollectionModulesConsistency.fs @@ -416,9 +416,9 @@ let ``indexed is consistent`` () = Check.QuickThrowOnFailure indexed let init<'a when 'a : equality> count f = - let s = run (fun () -> Seq.init count f |> Seq.toArray) - let l = run (fun () -> List.init count f |> Seq.toArray) - let a = run (fun () -> Array.init count f) + let s = runAndCheckErrorType (fun () -> Seq.init count f |> Seq.toArray) + let l = runAndCheckErrorType (fun () -> List.init count f |> Seq.toArray) + let a = runAndCheckErrorType (fun () -> Array.init count f) consistency "init" s l a []