module Tests.Result

open NUnit.Framework

open Pentole.TestsExtensions

open Pentole

[<Test>]
let err_test () =
 let got = ResultList.collect (Result.protect int) ["123"; "abc"; "456"]
 let msg = "The input string 'abc' was not in a correct format."

 match got with
     | Ok _ -> Assert.Fail "Expected an error"
     | Error exn -> areEqual exn.Message msg