[JS] Allow [<Erase>] to work on members (#3940)

src/Fable.Cli/CHANGELOG.md

@@ -16,6 +16,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 * [Rust] Added decision tree multiple target references (by @ncave)
 * [Rust] Added Char surrogate tests for completeness (by @ncave)
 * [JS] Add `System.String.Normalize` support (by @DashieTM)
+* [JS] Allow `[<Erase>]` to work on members (by @MangelMaxime)
 
 ### Fixed
 

src/Fable.Transforms/FSharp2Fable.fs

@@ -1920,6 +1920,9 @@ let private transformMemberDecl
     // Ignore members generated by the F# compiler (for comparison and equality)
     elif isCompilerGenerated memb args then
         []
+    // Ignore members that are decorated with [<Erase>]
+    elif hasAttrib Atts.erase memb.Attributes then
+        []
     elif memb.IsOverrideOrExplicitInterfaceImplementation then
         if not memb.IsCompilerGenerated then
             match memb.DeclaringEntity with

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>