From 2611e1370b9f1bfa9b754db76d14e33b99eee53d Mon Sep 17 00:00:00 2001
From: lread <lee@dlread.com>
Date: Sun, 28 Apr 2024 17:11:25 -0400
Subject: [PATCH] test maint: modernize graal native-image opts

Can use `-o` now instead of `-H:Path=` and `-H:Name=`.

Also fixed clean of any existing generated exe file.
---
 script/test_native.clj | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/script/test_native.clj b/script/test_native.clj
index 0cf4e2e..037b467 100644
--- a/script/test_native.clj
+++ b/script/test_native.clj
@@ -49,22 +49,22 @@
                                 :target-path :target-exe :classpath :native-image-xmx
                                 :entry-class]}]
   (status/line :head "Graal native-image compile AOT")
-  (let [full-target-exe (fs/which target-exe)]
-    (when (fs/exists? full-target-exe)
-      (fs/delete full-target-exe)))
-  (let [native-image-cmd [graal-native-image
-                          (str "-H:Path=" target-path)
-                          (str "-H:Name=" target-exe)
-                          "--features=clj_easy.graal_build_time.InitClojureClasses"
-                          "-O1" ;; basic optimization for faster build
-                          (str "-H:ReflectionConfigurationFiles=" reflection-config) ;; to support unsafe yaml test
-                          "-H:+ReportExceptionStackTraces"
-                          "--verbose"
-                          "--no-fallback"
-                          "-cp" classpath
-                          (str "-J-Xmx" native-image-xmx)
-                          entry-class]]
-    (t/shell native-image-cmd)))
+  (let [full-path-target-exe (str (fs/file target-path target-exe))]
+    (when-let [exe (fs/which full-path-target-exe)]
+      (status/line :detail "Deleting existing %s" exe)
+      (fs/delete exe))
+    (let [native-image-cmd [graal-native-image
+                            "-o" full-path-target-exe
+                            "--features=clj_easy.graal_build_time.InitClojureClasses"
+                            "-O1" ;; basic optimization for faster build
+                            (str "-H:ReflectionConfigurationFiles=" reflection-config) ;; to support unsafe yaml test
+                            "-H:+ReportExceptionStackTraces"
+                            "--verbose"
+                            "--no-fallback"
+                            "-cp" classpath
+                            (str "-J-Xmx" native-image-xmx)
+                            entry-class]]
+      (t/shell native-image-cmd))))
 
 (defn humanize-bytes [bytes]
   (let [units ["bytes" "KB" "MB" "GB"]