Add CompilationTests

.gitignore

@@ -212,4 +212,7 @@ project.lock.json
 .eggs/
 __pycache__/
 .python-version
-.hypothesis
+.hypothesis
+
+# Compilation tests
+tests/**/*.actual

tests/Integration/Integration/CompilationTests.fs

@@ -0,0 +1,37 @@
+module Fable.Tests.CompilationTests
+
+open System.IO
+open Expecto
+
+let private data = Path.Combine(__SOURCE_DIRECTORY__, "data")
+
+let tests =
+    Directory.EnumerateDirectories(data)
+    |> Seq.map (fun testCaseDir -> //
+        testCaseAsync
+            (Path.GetDirectoryName(testCaseDir))
+            (async {
+                let project =
+                    Directory.GetFileSystemEntries(testCaseDir, "*.fsproj") |> Seq.exactlyOne
+                // clean up old actual files
+                for f in Directory.GetFileSystemEntries(testCaseDir, "*.actual") do
+                    File.Delete f
+
+                // Compile project
+                let exitCode =
+                    Fable.Cli.Entry.main [| project; "--cwd"; "$\"{testCaseDir}\""; "-e"; ".js.actual" |]
+
+                Expect.equal exitCode 0 "Expected exit code to be 0"
+
+                for expected in Directory.GetFileSystemEntries(testCaseDir, "*.expected") do
+                    let actual = Path.ChangeExtension(expected, ".actual")
+                    Expect.isTrue (File.Exists actual) $"No actual file was produced for {expected}"
+                    let expectedContent = File.ReadAllText expected
+                    let actualContent = File.ReadAllText actual
+                    Expect.equal actualContent expectedContent "The expected content differs from the actual content"
+
+                return ()
+            }))
+
+    |> Seq.toList
+    |> ftestList "Compilation"

tests/Integration/Integration/Fable.Tests.Integration.fsproj

@@ -16,6 +16,7 @@
   <ItemGroup>
     <Compile Include="FileWatcherTests.fs" />
     <Compile Include="CliTests.fs" />
+    <Compile Include="CompilationTests.fs" />
     <Compile Include="Main.fs" />
   </ItemGroup>
 </Project>

tests/Integration/Integration/Main.fs

@@ -5,6 +5,7 @@ let allTests =
   [
     Cli.tests
     FileWatcher.tests
+    CompilationTests.tests
   ]
 
 open Expecto

tests/Integration/Integration/data/signatureHidesFunction/Library.fs

@@ -0,0 +1,4 @@
+module Lib
+
+let g a = a + 1
+let f b = g b

tests/Integration/Integration/data/signatureHidesFunction/Library.fsi

@@ -0,0 +1,3 @@
+module Lib
+
+val f: b:int -> int

tests/Integration/Integration/data/signatureHidesFunction/Library.js.expected

@@ -0,0 +1,9 @@
+
+function g(a) {
+    return a + 1;
+}
+
+export function f(b) {
+    return g(b);
+}
+

tests/Integration/Integration/data/signatureHidesFunction/signatureHidesFunction.fsproj

@@ -0,0 +1,18 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>net6.0</TargetFramework>
+    <GenerateDocumentationFile>true</GenerateDocumentationFile>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Library.fsi" />
+    <Compile Include="Library.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Fable.Core" Version="4.0.0" />
+      <PackageReference Update="FSharp.Core" Version="7.0.400" />
+  </ItemGroup>
+
+</Project>