make language version an inline data and keep source code in test body

Author: shoyu-ramen

tests/FSharp.Compiler.ComponentTests/Conformance/TypesAndTypeConstraints/IWSAMsAndSRTPs/IWSAMsAndSRTPsTests.fs

@@ -325,28 +325,23 @@ module ``Type checking behavior`` =
     #if !NETCOREAPP
     [<Theory(Skip = "IWSAMs are not supported by NET472.")>]
     #else   
-    [<InlineData("""
+    [<InlineData("6.0")>]
+    [<InlineData("7.0")>]
+    [<Theory>]
+    #endif
+    let ``Extension method on interface without SAM does not produce a warning`` version =
+        Fsx """
         type INormalInterface =
             abstract member IntMember: int
 
         module INormalInterfaceExtensions =
             type INormalInterface with
                 static member ExtMethod (a: INormalInterface) =
-                    ()""")>]
-    [<Theory>]
-    #endif
-    let ``Extension method on interface without SAM does not produce a warning`` code =
-        Fsx code
-        |> withLangVersion60
-        |> compile
-        |> shouldSucceed
-        |> ignore
-
-        Fsx code
-        |> withLangVersion70
+                    ()
+        """
+        |> withLangVersion version
         |> compile
         |> shouldSucceed
-        |> ignore
 
 module Negative =
 

tests/FSharp.Test.Utilities/Compiler.fs

@@ -393,6 +393,9 @@ module rec Compiler =
 
     let withLangVersionPreview (cUnit: CompilationUnit) : CompilationUnit =
         withOptionsHelper [ "--langversion:preview" ] "withLangVersionPreview is only supported on F#" cUnit
+        
+    let withLangVersion (version: string) (cUnit: CompilationUnit) : CompilationUnit =
+        withOptionsHelper [ $"--langversion:{version}" ] "withLangVersion is only supported on F#" cUnit
 
     let withAssemblyVersion (version:string) (cUnit: CompilationUnit) : CompilationUnit =
         withOptionsHelper [ $"--version:{version}" ] "withAssemblyVersion is only supported on F#" cUnit