tests: add integration for using Erase on members

tests/Integration/Integration/CompilationTests.fs

@@ -10,7 +10,7 @@ let tests =
     Directory.EnumerateDirectories(data)
     |> Seq.map (fun testCaseDir -> //
         testCaseAsync
-            (Path.GetDirectoryName(testCaseDir))
+            testCaseDir
             (async {
                 let project =
                     Directory.GetFileSystemEntries(testCaseDir, "*.fsproj") |> Seq.exactlyOne

tests/Integration/Integration/data/eraseAttribute/Members.fs

@@ -0,0 +1,15 @@
+module EraseAttributeMembers
+
+open Fable.Core
+
+type input() =
+
+    [<Erase>]
+    member this.onChange
+        with set (_: obj -> unit) = ()
+
+
+type input with
+
+    [<Erase>]
+    member this.onChange2 set (_: obj -> unit) = ()

tests/Integration/Integration/data/eraseAttribute/Members.js.expected

@@ -0,0 +1,15 @@
+import { class_type } from "./fable_modules/fable-library-js.4.22.0/Reflection.js";
+
+export class input {
+    constructor() {
+    }
+}
+
+export function input_$reflection() {
+    return class_type("EraseAttributeMembers.input", undefined, input);
+}
+
+export function input_$ctor() {
+    return new input();
+}
+

tests/Integration/Integration/data/eraseAttribute/eraseAttribute.fsproj

@@ -0,0 +1,17 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>net8.0</TargetFramework>
+    <RollForward>Major</RollForward>
+    <GenerateDocumentationFile>true</GenerateDocumentationFile>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Members.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Fable.Core" Version="4.2.0" />
+  </ItemGroup>
+
+</Project>