temp

dotnet · Aug 18, 2023 · 9bc3b0b · 9bc3b0b
1 parent e4ae176
commit 9bc3b0b
Showing 1 changed file with 15 additions and 15 deletions.
diff --git a/tests/FSharp.Compiler.ComponentTests/EmittedIL/RealInternalSignature.fs b/tests/FSharp.Compiler.ComponentTests/EmittedIL/RealInternalSignature.fs
@@ -551,7 +551,7 @@ module internal PrintfImpl
     [<InlineData(false,true)>]  // Internal, Debug
     [<InlineData(false,false)>] // Internal, Release
     [<Theory>]
-    let ``Class Type visibility - public .ctor`` (realSig, symbol) =
+    let ``Class Type visibility - public ctor`` (realSig, symbol) =
 
         FSharp """
 namespace FSharp.Compiler.CodeAnalysis
@@ -571,8 +571,8 @@ type private FSharpSourceFromFile public (filePath: string) =
 
 type FSharpSource with
 
-    static member CreateFromFile(filePath: string) =
-        FSharpSourceFromFile(filePath) :> FSharpSource
+    static member CreateFromFile (filePath: string) =
+        ()  //FSharpSourceFromFile(filePath) :> FSharpSource
 
 module doit =
     FSharpSource.CreateFromFile("Hello") |> ignore
@@ -593,7 +593,7 @@ module doit =
     [<InlineData(false,true)>]  // Internal, Debug
     [<InlineData(false,false)>] // Internal, Release
     [<Theory>]
-    let ``Class Type visibility - internal .ctor`` (realSig, symbol) =
+    let ``Class Type visibility - internal ctor`` (realSig, symbol) =
 
         FSharp """
 namespace FSharp.Compiler.CodeAnalysis
@@ -606,7 +606,7 @@ open System.IO
 type FSharpSource () =
     abstract FilePath: string
 
-type private FSharpSourceFromFile(filePath: string) =
+type private FSharpSourceFromFile internal (filePath: string) =
     inherit FSharpSource()
 
     override _.FilePath = filePath
@@ -635,7 +635,7 @@ module doit =
     [<InlineData(false,true)>]  // Internal, Debug
     [<InlineData(false,false)>] // Internal, Release
     [<Theory>]
-    let ``Class Type visibility - private .ctor`` (realSig, symbol) =
+    let ``Class Type visibility - private ctor`` (realSig, symbol) =
 
         FSharp """
 namespace FSharp.Compiler.CodeAnalysis
@@ -645,18 +645,18 @@ open System.IO
 
 
 [<AbstractClass>]
-type FSharpSource internal () =
+type FSharpSource () =
     abstract FilePath: string
 
-type private FSharpSourceFromFile(filePath: string) =
+type private FSharpSourceFromFile private (filePath: string) =
     inherit FSharpSource()
 
     override _.FilePath = filePath
 
 type FSharpSource with
 
-    static member CreateFromFile private (filePath: string) =
-        FSharpSourceFromFile(filePath) :> FSharpSource
+    static member CreateFromFile (filePath: string) =
+        ()  //FSharpSourceFromFile(filePath) :> FSharpSource
 
 module doit =
     FSharpSource.CreateFromFile("Hello") |> ignore
@@ -676,7 +676,7 @@ module doit =
     [<InlineData(false,true)>]  // Internal, Debug
     [<InlineData(false,false)>] // Internal, Release
     [<Theory>]
-    let ``Class Type visibility - unspecified .ctor`` (realSig, symbol) =
+    let ``Class Type visibility - unspecified ctor`` (realSig, symbol) =
 
         FSharp """
 namespace FSharp.Compiler.CodeAnalysis
@@ -686,18 +686,18 @@ open System.IO
 
 
 [<AbstractClass>]
-type FSharpSource internal () =
+type FSharpSource () =
     abstract FilePath: string
 
-type private FSharpSourceFromFile(filePath: string) =
+type private FSharpSourceFromFile (filePath: string) =
     inherit FSharpSource()
 
     override _.FilePath = filePath
 
 type FSharpSource with
 
-    static member CreateFromFile private (filePath: string) =
-        FSharpSourceFromFile(filePath) :> FSharpSource
+    static member CreateFromFile (filePath: string) =
+        ()  //FSharpSourceFromFile(filePath) :> FSharpSource
 
 module doit =
     FSharpSource.CreateFromFile("Hello") |> ignore