Skip to content

Commit

Permalink
[new] [#361] [#362] Add Graal test (@borkdude)
Browse files Browse the repository at this point in the history
  • Loading branch information
borkdude authored and ptaoussanis committed Dec 8, 2022
1 parent 52559e4 commit 3a9dd29
Show file tree
Hide file tree
Showing 5 changed files with 90 additions and 1 deletion.
32 changes: 32 additions & 0 deletions .github/workflows/graal_test.yml
Original file line number Diff line number Diff line change
@@ -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/[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 test-graal
10 changes: 10 additions & 0 deletions bb.edn
Original file line number Diff line number Diff line change
@@ -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))}}}
35 changes: 35 additions & 0 deletions bb/graal_test.clj
Original file line number Diff line number Diff line change
@@ -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!")))
9 changes: 8 additions & 1 deletion project.clj
Original file line number Diff line number Diff line change
Expand Up @@ -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"]

Expand Down
5 changes: 5 additions & 0 deletions test/taoensso/timbre/graal_test.clj
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
(ns taoensso.timbre.graal-test
(:require [taoensso.timbre :as timbre])
(:gen-class))

(defn -main [& args] (timbre/info args))

0 comments on commit 3a9dd29

Please sign in to comment.