@@ -631,16 +631,16 @@ let ``Trait calls work with record fields`` () =
631631 replaceById { Id= Id" ja" ; Name= " Voll" } ar |> Seq.head |> fun x -> equal " Sarah" x.Name
632632 replaceById { Id= Id" foo" ; Name= " Anna" } ar |> Seq.head |> fun x -> equal " Anna" x.Name
633633
634- // [<Fact>]
635- // let ``Nested trait calls work`` () = // See #2468
636- // let i: int = parse "123"
637- // let b: bool = parse "true"
638- // let p: Parseable = parse ""
639- // let h : DateTimeOffset = parse "2011-03-04T15:42:19+03:00"
640- // equal 123 i
641- // equal true b
642- // equal Parseable p
643- // equal (DateTimeOffset(2011, 3, 4, 15, 42, 19, TimeSpan.FromHours(3.))) h
634+ [<Fact>]
635+ let ``Nested trait calls work`` () = // See #2468
636+ let i : int = parse " 123"
637+ let b : bool = parse " true"
638+ let p : Parseable = parse " "
639+ let h : DateTimeOffset = parse " 2011-03-04T15:42:19+03:00"
640+ equal 123 i
641+ equal true b
642+ equal Parseable p
643+ equal ( DateTimeOffset( 2011 , 3 , 4 , 15 , 42 , 19 , TimeSpan.FromHours( 3. ))) h
644644
645645[<Fact>]
646646let ``Inline local function can call another inline function with trait call`` () =
@@ -1783,7 +1783,7 @@ module AccessorFunctionShorthand =
17831783 let inline namePropertyGetter < 'a when 'a :( member Name : string )> ( x : 'a ) = x |> _. Name
17841784
17851785[< Fact>]
1786- let ``test Accessor function shorthand works for records`` () =
1786+ let ``Accessor function shorthand works for records`` () =
17871787 let people : AccessorFunctionShorthand.User list =
17881788 [
17891789 { Name = " John" }
@@ -1794,7 +1794,7 @@ let ``test Accessor function shorthand works for records`` () =
17941794 equal names [ " John" ; " Jane" ]
17951795
17961796[< Fact>]
1797- let ``test Accessor function shorthand works for anonymous records`` () =
1797+ let ``Accessor function shorthand works for anonymous records`` () =
17981798 let people =
17991799 [
18001800 {| Name = " John" |}
0 commit comments