More test fixes

Author: kerams

tests/fsharp/core/attributes/testlib.fs

@@ -1,4 +1,4 @@
-#light
+
 
 module TestLibModule
 

tests/fsharp/core/members/basics-hw/test.fsx

@@ -1,6 +1,6 @@
 // #Regression #Conformance #SignatureFiles #Classes #ObjectConstructors #ObjectOrientedTypes #Fields #MemberDefinitions #MethodsAndProperties #Unions #InterfacesAndImplementations #Events #Overloading #Recursion #Regression 
 
-#light
+
 
 #if TESTS_AS_APP
 module Core_members_basics

tests/fsharp/regression/4715/env.fs

@@ -1,4 +1,4 @@
-#light
+
 [<RequireQualifiedAccess>]
 module app.env
 

tests/fsharp/regression/4715/main.fs

@@ -1,4 +1,4 @@
-#light
+
 module app.main
 
 open System

tests/fsharp/typecheck/sigs/neg42.bsl

@@ -1,2 +1,2 @@
 
-neg42.fsi(2,20,3,1): parse error FS0010: Incomplete structured construct at or before this point in signature file. Expected ':', '=' or other token.
+neg42.fsi(2,20,3,1): parse error FS0010: Incomplete structured construct at or before this point in signature file. Expected '=' or other token.

vsintegration/tests/UnitTests/LegacyLanguageService/Tests.LanguageService.Completion.fs

@@ -6557,12 +6557,6 @@ let rec f l =
             fileContents = """#nowarn(*MarkerPreProcessNowarn*)""",
             marker = "(*MarkerPreProcessNowarn*)")
 
-    [<Fact>]
-    member this.``MacroDirectives.light``() = 
-        this.VerifyDotCompListIsEmptyAtStartOfMarker(
-            fileContents = """#light(*MarkerPreProcessLight*)""",
-            marker = "(*MarkerPreProcessLight*)") 
-
     [<Fact>]
     member this.``MacroDirectives.define``() =
         this.VerifyDotCompListIsEmptyAtStartOfMarker(

vsintegration/tests/UnitTests/LegacyLanguageService/Tests.LanguageService.ErrorList.fs

@@ -538,7 +538,7 @@ type staticInInterface =
         let solution = this.CreateSolution()
         let project = CreateProject(solution,"testproject")
         SetVersionFile(project,"nonexistent")
-        let file = AddFileFromText(project,"File1.fs",["#light"])
+        let file = AddFileFromText(project,"File1.fs",[])
         let file = OpenFile(project,"File1.fs")            
         TakeCoffeeBreak(this.VS) // Wait for the background compiler to catch up.
         VerifyErrorListContainedExpectedStr("nonexistent",project)
@@ -547,7 +547,7 @@ type staticInInterface =
     member public this.``BackgroundComplier``() = 
         this.VerifyErrorListCountAtOpenProject(
             fileContents = """
-                #light
+
 
                 module Test
 
@@ -807,7 +807,7 @@ type staticInInterface =
 
 (* TODO why does this portion not work?  specifically, last assert fails 
         printfn "changing file..."
-        ReplaceFileInMemory file1 ["#light"
+        ReplaceFileInMemory file1 [
                                    "let xx = \"foo\""   // now x is string
                                    "printfn \"hi\""]
 

vsintegration/tests/UnitTests/LegacyLanguageService/Tests.LanguageService.General.fs

@@ -117,7 +117,7 @@ type UsingMSBuild() =
             let solution = this.CreateSolution()
             let project = CreateProject(solution,"testproject")
             let file1 = AddFileFromTextEx(project, @"..\LINK.FS", @"..\link.fs", BuildAction.Compile,
-                                        ["#light"
+                                        [
                                          "type Bob() = "
                                          "    let x = 1"])
             let file1 = OpenFile(project, @"..\link.fs")
@@ -196,19 +196,19 @@ type UsingMSBuild() =
     [<Fact>]
     member public this.``Salsa.ReplaceAllText``() =
         let code = 
-                ["#light"; 
+                ["//"; 
                  "let x = \"A String Literal\""]
         let (_solution, _project, file) = this.CreateSingleFileProject(code)
 
         // Sanity check
-        MoveCursorToStartOfMarker(file,"#light")
+        MoveCursorToStartOfMarker(file,"//")
         AssertEqual(TokenType.PreprocessorKeyword, GetTokenTypeAtCursor(file))
         MoveCursorToEndOfMarker(file,"let x = ")
         AssertEqual(TokenType.String, GetTokenTypeAtCursor(file))
 
         // Replace file contents
         ReplaceFileInMemory file
-                            ["#light";
+                            [
                               "let x = 42 // comment!";
                               "let y = \"A String Literal\""]
 
@@ -292,7 +292,7 @@ type UsingMSBuild() =
     member public this.``ExhaustivelyScrutinize.Bug2277``() =     
         Helper.ExhaustivelyScrutinize(
             this.TestRunner,
-              ["#light"
+              [
                "open Microsoft.FSharp.Plot.Excel"
                "open Microsoft.FSharp.Plot.Interactive"
                "let ps = [| (1.,\"c\"); (-2.,\"p\") |]"
@@ -306,7 +306,7 @@ type UsingMSBuild() =
     member public this.``ExhaustivelyScrutinize.Bug2283``() =     
         Helper.ExhaustivelyScrutinize(
             this.TestRunner,
-              ["#light"
+              [
                "#r \"NestedClasses.dll\"" // Scenario requires this assembly not exist.
                "//753 atomType -> atomType DOT path typeArgs"
                "let specificIdent (x : RootNamespace.ClassOfT<int>.NestedClassOfU<string>) = x"

vsintegration/tests/UnitTests/LegacyLanguageService/Tests.LanguageService.GotoDefinition.fs

@@ -671,7 +671,7 @@ type UsingMSBuild()  =
     /// exp = (<expected line>, <expected identifier>) option
     member internal this.SolutionGotoDefinitionTestWithSimpleFile (startLoc : string)(exp : (string * string) option) : unit =
       let lines = 
-        [ "#light"
+        [
           "let _ = 3"
           "let _ = \"hi\""
           "let _ = 2 + 3"
@@ -1290,7 +1290,7 @@ type UsingMSBuild()  =
     [<Fact>]
     member this.``GotoDefinition.ObjectOriented.StructConstructor`` () =
       let lines = 
-        [ "#light"
+        [
           "[<Struct>]"
           "type Astruct(x:int, y:int) ="
           "  [<DefaultValue()>]"

vsintegration/tests/UnitTests/LegacyLanguageService/Tests.LanguageService.NavigationBar.fs

@@ -17,7 +17,7 @@ type UsingMSBuild() =
         (* Files for testing and tests --------------------------------------------------------- *)
 
     let NavigationFile1 = 
-      [ "#light"
+      [
         "module Example.Module"
         ""
         "module SomeModule = "
@@ -39,7 +39,7 @@ type UsingMSBuild() =
         "    type EnumOneLine = (*5s*)| OUAaa = 0 | OUBbb = 3(*5e*)" ]
 
     let NavigationFile2 = 
-      [ "#light"
+      [
         "module A =   "
         ""
         "    type RecWith = (*7s*){ "