Move ErrorMessages/NameResolution Tests to NUnit

tests/fsharp/Compiler/ErrorMessages/NameResolutionTests.fs

@@ -0,0 +1,45 @@
+// Copyright (c) Microsoft Corporation.  All Rights Reserved.  See License.txt in the project root for license information.
+
+namespace FSharp.Compiler.UnitTests
+
+open NUnit.Framework
+open FSharp.Compiler.SourceCodeServices
+
+[<TestFixture>]
+module ``NameResolutionTests`` = 
+
+    [<Test>]
+    let `` FieldNotInRecord `` () =
+        CompilerAssert.TypeCheckSingleError
+            """
+type A = { Hello:string; World:string }
+type B = { Size:int; Height:int }
+type C = { Wheels:int }
+type D = { Size:int; Height:int; Walls:int }
+type E = { Unknown:string }
+type F = { Wallis:int; Size:int; Height:int; }
+
+let r:F = { Size=3; Height=4; Wall=1 }
+            """
+            FSharpErrorSeverity.Error
+            1129
+            (9, 31, 9, 35)
+            "The record type 'F' does not contain a label 'Wall'."
+
+    [<Test>]
+    let `` RecordFieldProposal `` () =
+        CompilerAssert.TypeCheckSingleError
+            """
+type A = { Hello:string; World:string }
+type B = { Size:int; Height:int }
+type C = { Wheels:int }
+type D = { Size:int; Height:int; Walls:int }
+type E = { Unknown:string }
+type F = { Wallis:int; Size:int; Height:int; }
+            
+let r = { Size=3; Height=4; Wall=1 }
+            """
+            FSharpErrorSeverity.Error
+            39
+            (9, 29, 9, 33)
+            "The record label 'Wall' is not defined."

tests/fsharp/FSharpSuite.Tests.fsproj

@@ -35,6 +35,7 @@
     <Compile Include="Compiler\ErrorMessages\AccessOfTypeAbbreviationTests.fs" />
     <Compile Include="Compiler\ErrorMessages\ElseBranchHasWrongTypeTests.fs" />
     <Compile Include="Compiler\ErrorMessages\MissingElseBranch.fs" />
+    <Compile Include="Compiler\ErrorMessages\NameResolutionTests.fs" />
     <Compile Include="Compiler\SourceTextTests.fs" />
     <Compile Include="Compiler\Language\AnonRecordTests.fs" />
     <Compile Include="Compiler\Language\SpanOptimizationTests.fs" />

tests/fsharpqa/Source/ErrorMessages/NameResolution/E_GlobalQualifierAfterDot.fs

@@ -3,4 +3,4 @@
 
 let x = global.System.String.Empty.global.System.String.Empty
 
-exit 0
+exit 0

tests/fsharpqa/Source/ErrorMessages/NameResolution/env.lst

@@ -1,3 +1 @@
-	SOURCE=E_RecordFieldProposal.fs		# E_RecordFieldProposal
-	SOURCE=E_GlobalQualifierAfterDot.fs		# E_GlobalQualifierAfterDot
-	SOURCE=E_FieldNotInRecord.fs		# E_FieldNotInRecord
+SOURCE=E_GlobalQualifierAfterDot.fs		# E_GlobalQualifierAfterDot