|
259 | 259 | "ToArray";"ToString";"TrimExcess";"TrueForAll"] |
260 | 260 | VerifyCompletionListExactly(fileContents,"x.", expected) |
261 | 261 |
|
| 262 | +[<Test>] |
| 263 | +let``Constructing a new class with object initializer syntax``()= |
| 264 | +letfileContents=""" |
| 265 | +type A() = |
| 266 | + member val SettableProperty = 1 with get, set |
| 267 | + member val AnotherSettableProperty = 1 with get, set |
| 268 | + member val NonSettableProperty = 1 |
| 269 | +
|
| 270 | +let _ = new A(Setta |
| 271 | +""" |
| 272 | + |
| 273 | +letexpected=["SettableProperty";"AnotherSettableProperty"] |
| 274 | +letnotExpected=["NonSettableProperty"] |
| 275 | + VerifyCompletionList(fileContents,"(Setta", expected, notExpected) |
| 276 | + |
| 277 | +[<Test>] |
| 278 | +let``Constructing a new fully qualified class with object initializer syntax``()= |
| 279 | +letfileContents=""" |
| 280 | +module M = |
| 281 | + type A() = |
| 282 | + member val SettableProperty = 1 with get, set |
| 283 | + member val AnotherSettableProperty = 1 with get, set |
| 284 | + member val NonSettableProperty = 1 |
| 285 | +
|
| 286 | +let _ = new M.A(Setta |
| 287 | +""" |
| 288 | + |
| 289 | +letexpected=["SettableProperty";"AnotherSettableProperty"] |
| 290 | +letnotExpected=["NonSettableProperty"] |
| 291 | + VerifyCompletionList(fileContents,"(Setta", expected, notExpected) |
| 292 | + |
262 | 293 | [<Test>] |
263 | 294 | let``Extension methods go after everything else,extension properties are treated as normal ones``()= |
264 | 295 | letfileContents=""" |
|