Skip to content

Commit 95fe9b0

Browse files
committed
Had let after member declaration
1 parent 7f0b362 commit 95fe9b0

File tree

1 file changed

+5
-6
lines changed
  • src/fsharp/FSharp.Core.Unittests/FSharp.Core/Microsoft.FSharp.Core

1 file changed

+5
-6
lines changed

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

Lines changed: 5 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -33,19 +33,18 @@ type ResultTests() =
3333
let actual = validate_email email
3434
Assert.AreEqual(expected, actual)
3535

36+
let toUpper (v:string) = v.ToUpper()
37+
38+
let shouldBeOkWithValue expected maybeOk = match maybeOk with | Error e-> failwith "Expected Ok, got Error!" | Ok v->Assert.AreEqual(expected, v)
39+
40+
let shouldBeErrorWithValue expected maybeError = match maybeError with | Error e-> Assert.AreEqual(expected, e) | Ok v-> failwith "Expected Error, got Ok!"
3641

3742
[<Test>]
3843
member this.CanChainTogetherSuccessiveValidations() =
3944
test_validate_email "" (Error Empty)
4045
test_validate_email "something_else" (Error NoAt)
4146
test_validate_email "some@email.com" (Ok "some@email.com")
4247

43-
let toUpper (v:string) = v.ToUpper()
44-
45-
let shouldBeOkWithValue expected maybeOk = match maybeOk with | Error e-> failwith "Expected Ok, got Error!" | Ok v->Assert.AreEqual(expected, v)
46-
47-
let shouldBeErrorWithValue expected maybeError = match maybeError with | Error e-> Assert.AreEqual(expected, e) | Ok v-> failwith "Expected Error, got Ok!"
48-
4948
[<Test>]
5049
member this.MapWillTransformOkValues() =
5150
Ok "some@email.com"

0 commit comments

Comments
 (0)