File tree 2 files changed +3
-1
lines changed
tests/FSharp.Compiler.ComponentTests/Diagnostics
2 files changed +3
-1
lines changed Original file line number Diff line number Diff line change @@ -387,6 +387,7 @@ type PhasedDiagnostic with
387
387
| 3390 -> false // xmlDocBadlyFormed - off by default
388
388
| 3395 -> false // tcImplicitConversionUsedForMethodArg - off by default
389
389
| 3559 -> false // typrelNeverRefinedAwayFromTop - off by default
390
+ | 3560 -> false // tcCopyAndUpdateRecordChangesAllFields - off by default
390
391
| 3579 -> false // alwaysUseTypedStringInterpolation - off by default
391
392
| _ ->
392
393
match x.Exception with
Original file line number Diff line number Diff line change @@ -17,6 +17,7 @@ let updateOk r = { r with F1 = 1 }
17
17
let updateWarn r = { r with F1 = 1; F2 = "" }
18
18
"""
19
19
|> withLangVersion80
20
+ |> withOptions [ " --warnon:FS3560" ]
20
21
|> typecheck
21
22
|> shouldFail
22
23
|> withDiagnostics [
@@ -46,7 +47,6 @@ type R = { F1: int; F2: string }
46
47
let updateWarn r = { r with F1 = 1; F2 = "" }
47
48
"""
48
49
|> withLangVersion80
49
- |> withOptions [ " --nowarn:3560" ]
50
50
|> typecheck
51
51
|> shouldSucceed
52
52
@@ -86,6 +86,7 @@ let t2 (x: RecTy) (a: AnotherNestedRecTy) = { x with D.C.c = { a with A = 3 } }
86
86
let t3 (x: RecTy) (a: AnotherNestedRecTy) = { x with D.C.c = { a with A = 3; B = 4 } }
87
87
"""
88
88
|> withLangVersion80
89
+ |> withOptions [ " --warnon:FS3560" ]
89
90
|> typecheck
90
91
|> shouldFail
91
92
|> withDiagnostics [
You can’t perform that action at this time.
0 commit comments