Skip to content

Commit 248a018

Browse files
committed
Another let among members
1 parent 95fe9b0 commit 248a018

File tree

1 file changed

+2
-1
lines changed
  • src/fsharp/FSharp.Core.Unittests/FSharp.Core/Microsoft.FSharp.Core

1 file changed

+2
-1
lines changed

src/fsharp/FSharp.Core.Unittests/FSharp.Core/Microsoft.FSharp.Core/ResultTests.fs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -39,6 +39,8 @@ type ResultTests() =
3939

4040
let shouldBeErrorWithValue expected maybeError = match maybeError with | Error e-> Assert.AreEqual(expected, e) | Ok v-> failwith "Expected Error, got Ok!"
4141

42+
let addOneOk (v:int) = Ok (v+1)
43+
4244
[<Test>]
4345
member this.CanChainTogetherSuccessiveValidations() =
4446
test_validate_email "" (Error Empty)
@@ -69,7 +71,6 @@ type ResultTests() =
6971
|> mapError toUpper
7072
|> shouldBeOkWithValue "some@email.com"
7173

72-
let addOneOk (v:int) = Ok (v+1)
7374
[<Test>]
7475
member this.BindShouldModifyOkValue() =
7576
Ok 42

0 commit comments

Comments
 (0)