[new] [#361] [#362] Add Graal test (@borkdude)

.github/workflows/graal_test.yml

@@ -0,0 +1,32 @@
+name: graal-test
+on: [push, pull_request]
+
+jobs:
+  test:
+    strategy:
+      matrix:
+        java: ['17']
+        os: [ubuntu-latest, macOS-latest, windows-latest]
+
+    runs-on: ${{ matrix.os }}
+    steps:
+      - uses: actions/checkout@v3
+      - uses: graalvm/setup-graalvm@v1
+        with:
+          version: 'latest'
+          java-version: ${{ matrix.java }}
+          components: 'native-image'
+          github-token: ${{ secrets.GITHUB_TOKEN }}
+
+      - uses: DeLaGuardo/setup-clojure@10.0
+        with:
+          lein: latest
+          bb: latest
+
+      - uses: actions/cache@v3
+        with:
+          path: ~/.m2/repository
+          key: deps-${{ hashFiles('deps.edn') }}
+          restore-keys: deps-
+
+      - run: bb test-graal

bb.edn

@@ -0,0 +1,10 @@
+{:paths ["bb"]
+ :tasks
+ {:requires ([graal-test])
+  test-graal
+  {:doc "Run native-image tests"
+   :task
+   (do
+     (graal-test/uberjar)
+     (graal-test/native-image)
+     (graal-test/test-native-image))}}}

bb/graal_test.clj

@@ -0,0 +1,35 @@
+#!/usr/bin/env bb
+
+(ns graal-test
+  (:require
+   [clojure.string :as str]
+   [babashka.fs    :as fs]
+   [babashka.process :refer [shell]]))
+
+(defn uberjar []
+  (let [command "lein with-profiles +graal-test uberjar"
+        command (if (fs/windows?)
+                  (if (fs/which "lein")
+                    command
+                    ;; assume powershell module
+                    (str "powershell.exe -command " (pr-str command)))
+                  command)]
+    (shell command)))
+
+(defn executable [dir name]
+  (-> (fs/glob dir (if (fs/windows?) (str name ".{exe,bat,cmd}") name))
+      first
+      fs/canonicalize
+      str))
+
+(defn native-image []
+  (let [graalvm-home (System/getenv "GRAALVM_HOME")
+        bin-dir (str (fs/file graalvm-home "bin"))]
+    (shell (executable bin-dir "gu") "install" "native-image")
+    (shell (executable bin-dir "native-image") "-jar" "target/graal-test.jar" "--no-fallback" "graal_test")))
+
+(defn test-native-image []
+  (let [{:keys [out]}
+        (shell {:out :string} (executable "." "graal_test") "1" "2" "3")]
+    (assert (str/includes? out (str '("1" "2" "3"))) out)
+    (println "Native image works!")))

project.clj

@@ -64,7 +64,14 @@
      [com.taoensso/nippy        "3.2.0"]
      [com.taoensso/carmine      "3.1.0"
       :exclusions [com.taoensso/timbre]]
-     [com.draines/postal        "2.0.5"]]}}
+     [com.draines/postal        "2.0.5"]]}
+
+   :graal-test
+   {:dependencies [[org.clojure/clojure "1.11.1"]
+                   [com.github.clj-easy/graal-build-time "0.1.4"]]
+    :main taoensso.timbre.graal-test
+    :aot [taoensso.timbre.graal-test]
+    :uberjar-name "graal-test.jar"}}
 
   :test-paths ["test" #_"src"]
 

test/taoensso/timbre/graal_test.clj

@@ -0,0 +1,5 @@
+(ns taoensso.timbre.graal-test
+  (:require [taoensso.timbre :as timbre])
+  (:gen-class))
+
+(defn -main [& args] (timbre/info args))