16 lines
361 B
Forth
16 lines
361 B
Forth
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
|