luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[#872] Add java.lang.ProcessHandle$Info (#873)

Browse source 
And java.util.Optional
This commit is contained in:
Michiel Borkent 2021-05-31 00:06:21 +02:00 committed by GitHub
parent 524a260c26
commit 42bf790068
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/babashka/impl/classes.clj
View file

@ -132,6 +132,7 @@
java.lang.Object
java.lang.Process
java.lang.ProcessHandle
java.lang.ProcessHandle$Info
java.lang.ProcessBuilder
java.lang.ProcessBuilder$Redirect
java.lang.Runtime
@ -247,6 +248,7 @@
java.util.Locale
java.util.Map
java.util.MissingResourceException
java.util.Optional
java.util.Properties
java.util.Set
java.util.UUID
@ -344,6 +346,8 @@
java.lang.Process
(instance? java.lang.ProcessHandle v)
java.lang.ProcessHandle
(instance? java.lang.ProcessHandle$Info v)
java.lang.ProcessHandle$Info
;; added for calling .put on .environment from ProcessBuilder
(instance? java.util.Map v)
java.util.Map

12
test/babashka/main_test.clj
View file

@ -468,8 +468,8 @@
;; TODO: refactor into individual unit tests
;; One for downloading a small file and one for unzipping.
#_(is (try (= 6 (bb nil (io/file "test" "babashka" "scripts" "download_and_extract_zip.bb")))
(catch Exception e
(is (str/includes? (str e) "timed out"))))))
(catch Exception e
(is (str/includes? (str e) "timed out"))))))
(deftest get-message-on-exception-info-test
(is "foo" (bb nil "(try (throw (ex-info \"foo\" {})) (catch Exception e (.getMessage e)))")))
@ -639,6 +639,14 @@ true")))
(is (str/blank? (with-out-str (main/main "doc" "non-existing"))))
(is (= 1 (main/main "doc" "non-existing")))))
(deftest process-handler-info-test
(when test-utils/native?
(is (= ["-e" "(vec (.get (.arguments (.info (java.lang.ProcessHandle/current)))))"]
(bb nil "-e" "(vec (.get (.arguments (.info (java.lang.ProcessHandle/current)))))")))
(is (str/ends-with?
(bb nil "-e" "(.get (.command (.info (java.lang.ProcessHandle/current))))")
"bb"))))
;;;; Scratch
(comment