Skip to content

Commit 15ec291

Browse files
committed
more tests
1 parent 95180ae commit 15ec291

File tree

1 file changed

+17
-0
lines changed

1 file changed

+17
-0
lines changed

tests/FSharp.Compiler.ComponentTests/Conformance/Types/RecordTypes/AnonymousRecords.fs

Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -19,6 +19,23 @@ module AnonRecd =
1919
|> shouldFail
2020
|> withErrorCode 3522
2121
|> withMessage "The field 'A' appears multiple times in this record expression."
22+
23+
[<Fact>]
24+
let ``Anonymous Record with unit of measures`` () =
25+
FSharp """
26+
namespace FSharpTest
27+
28+
[<Measure>]
29+
type m
30+
31+
module AnonRecd =
32+
let a = {|a=1<m>|}
33+
let b = {|a=1<m>; b=2<m>|}
34+
let c = {|a=1<m> |}
35+
let d = {| a=1<m>; b=2<m>; c=3<m> |}
36+
"""
37+
|> compile
38+
|> shouldSucceed
2239

2340
[<Fact>]
2441
let ``Anonymous Record missing single field`` () =

0 commit comments

Comments
 (0)