[nop] Update tests template, add GraalVM tests

.github/workflows/graal-tests.yml

@@ -0,0 +1,32 @@
+name: Graal tests
+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/[email protected]
+        with:
+          lein: latest
+          bb: latest
+
+      - uses: actions/cache@v3
+        with:
+          path: ~/.m2/repository
+          key: deps-${{ hashFiles('deps.edn') }}
+          restore-keys: deps-
+
+      - run: bb graal-tests

.github/workflows/tests.yml → .github/workflows/main-tests.yml

@@ -1,4 +1,4 @@
-name: tests
+name: Main tests
 on: [push, pull_request]
 
 jobs:
@@ -25,5 +25,6 @@ jobs:
         with:
           path: ~/.m2/repository
           key: deps-${{ hashFiles('project.clj') }}
+          restore-keys: deps-
 
       - run: lein test-all

bb.edn

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

bb/graal_tests.clj

@@ -0,0 +1,36 @@
+#!/usr/bin/env bb
+
+(ns graal-tests
+  (:require
+   [clojure.string :as str]
+   [babashka.fs    :as fs]
+   [babashka.process :refer [shell]]))
+
+(defn uberjar []
+  (let [command "lein with-profiles +graal-tests uberjar"
+        command
+        (if (fs/windows?)
+          (if (fs/which "lein")
+            command
+            ;; Assume PowerShell 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-tests.jar" "--no-fallback" "graal_tests")))
+
+(defn run-tests []
+  (let [{:keys [out]} (shell {:out :string} (executable "." "graal_tests"))]
+    (assert (str/includes? out "loaded") out)
+    (println "Native image works!")))

test/taoensso/graal_tests.clj

@@ -0,0 +1,5 @@
+(ns taoensso.graal-tests
+  (:require [taoensso.touchstone :as touchstone])
+  (:gen-class))
+
+(defn -main [& args] (println "Namespace loaded successfully"))