Truffle tests flood the output.

Author: tzezula

truffle/mx.truffle/mx_truffle.py

@@ -321,6 +321,8 @@ def apply(self, config):
 
         # Disable VirtualThread warning
         vmArgs = vmArgs + ['-Dpolyglot.engine.WarnVirtualThreadSupport=false']
+        # Print only a single close on context collected error
+        vmArgs = vmArgs + ['-Dpolyglot.engine.CloseOnGCFailureAction=PrintOnce']
         enable_truffle_native_access(vmArgs)
         enable_sun_misc_unsafe(vmArgs)
         return (vmArgs, mainClass, mainClassArgs)

truffle/src/com.oracle.truffle.polyglot/src/com/oracle/truffle/polyglot/PolyglotEngineImpl.java

@@ -2445,25 +2445,35 @@ static void logCloseOnCollectedError(PolyglotEngineImpl engine, String reason, T
         switch (engine.getEngineOptionValues().get(PolyglotEngineOptions.CloseOnGCFailureAction)) {
             case Ignore -> {
             }
-            case Print -> {
-                StringWriter message = new StringWriter();
-                try (PrintWriter errWriter = new PrintWriter(message)) {
-                    errWriter.printf("""
-                                    [engine] WARNING: %s
-                                    To customize the behavior of this warning, use 'engine.CloseOnGCFailureAction' option or the 'polyglot.engine.CloseOnGCFailureAction' system property.
-                                    The accepted values are:
-                                      - Ignore:    Do not print this warning.
-                                      - Print:     Print this warning (default value).
-                                      - Throw:     Throw an exception instead of printing this warning.
-                                    """, reason);
-                    exception.printStackTrace(errWriter);
+            case PrintOnce -> {
+                if (closeOnCollectedErrorLogged.compareAndSet(false, true)) {
+                    logCloseOnCollectedError(reason, exception);
                 }
-                logFallback(message.toString());
             }
+            case Print -> logCloseOnCollectedError(reason, exception);
             case Throw -> throw new RuntimeException(reason, exception);
         }
     }
 
+    private static final AtomicBoolean closeOnCollectedErrorLogged = new AtomicBoolean();
+
+    private static void logCloseOnCollectedError(String reason, Throwable exception) {
+        StringWriter message = new StringWriter();
+        try (PrintWriter errWriter = new PrintWriter(message)) {
+            errWriter.printf("""
+                            [engine] WARNING: %s
+                            To customize the behavior of this warning, use 'engine.CloseOnGCFailureAction' option or the 'polyglot.engine.CloseOnGCFailureAction' system property.
+                            The accepted values are:
+                              - Ignore:    Do not print this warning.
+                              - PrintOnce: Print this warning only for the first occurrence; suppress subsequent ones.
+                              - Print:     Print this warning (default value).
+                              - Throw:     Throw an exception instead of printing this warning.
+                            """, reason);
+            exception.printStackTrace(errWriter);
+        }
+        logFallback(message.toString());
+    }
+
     static final class StableLocalLocations {
 
         @CompilationFinal(dimensions = 1) final LocalLocation[] locations;

truffle/src/com.oracle.truffle.polyglot/src/com/oracle/truffle/polyglot/PolyglotEngineOptions.java

@@ -191,13 +191,15 @@ public StaticObjectStorageStrategies apply(String s) {
 
     enum CloseOnGCExceptionAction {
         Ignore,
+        PrintOnce,
         Print,
         Throw;
 
-        private static final String HELP = "Specifies the action to take when closing a garbage collected engine or context fails.%n" +
+        private static final String HELP = "Specifies the action to take when closing a garbage-collected engine or context fails.%n" +
                         "The accepted values are:%n" +
-                        "    Ignore:    Do not print this warning.%n" +
-                        "    Print:     Print this warning (default value).%n" +
-                        "    Throw:     Throw an exception instead of printing this warning.";
+                        "    Ignore:     Ignore the exception that occurs during close.%n" +
+                        "    PrintOnce:  Log the failure only for the first occurrence; suppress subsequent ones.%n" +
+                        "    Print:      Log each failure (default value).%n" +
+                        "    Throw:      Throw an exception instead of logging the failure.";
     }
 }