This commit is contained in:
Michiel Borkent 2021-01-02 15:03:06 +01:00 committed by GitHub
parent 4819a9b434
commit ee22efdb40
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
6 changed files with 4 additions and 21 deletions

4
.carve/ignore Normal file
View file

@ -0,0 +1,4 @@
babashka.impl.pipe-signal-handler/pipe-signal-received?
babashka.impl.pipe-signal-handler/handle-pipe!
babashka.impl.sigint-handler/handle-sigint!
babashka.impl.classes/generate-reflection-file

View file

@ -283,18 +283,6 @@
;;; UTILITIES FOR REPORTING FUNCTIONS ;;; UTILITIES FOR REPORTING FUNCTIONS
(defn file-position
"Returns a vector [filename line-number] for the nth call up the
stack.
Deprecated in 1.2: The information needed for test reporting is
now on :file and :line keys in the result map."
{:added "1.1"
:deprecated "1.2"}
[n]
(let [^StackTraceElement s (nth (.getStackTrace (new java.lang.Throwable)) n)]
[(.getFileName s) (.getLineNumber s)]))
(defn testing-vars-str (defn testing-vars-str
"Returns a string representation of the current test. Renders names "Returns a string representation of the current test. Renders names
in *testing-vars* as a list, then the source file and line of in *testing-vars* as a list, then the source file and line of

View file

@ -348,9 +348,6 @@ Use -- to separate script command line args from bb command line args.
;; hang until SIGINT ;; hang until SIGINT
@(promise)) @(promise))
(defn exit [n]
(throw (ex-info "" {:bb/exit-code n})))
(def aliases (def aliases
(cond-> (cond->
'{tools.cli clojure.tools.cli '{tools.cli clojure.tools.cli

View file

@ -5,9 +5,6 @@
[clojure.string :as str] [clojure.string :as str]
[clojure.test :as t :refer [deftest is testing]])) [clojure.test :as t :refer [deftest is testing]]))
(defn bb [input & args]
(edn/read-string (apply tu/bb (when (some? input) (str input)) (map str args))))
(deftest uberjar-test (deftest uberjar-test
(let [tmp-file (java.io.File/createTempFile "uber" ".jar") (let [tmp-file (java.io.File/createTempFile "uber" ".jar")
path (.getPath tmp-file)] path (.getPath tmp-file)]

View file

@ -4,9 +4,6 @@
[clojure.edn :as edn] [clojure.edn :as edn]
[clojure.test :as t :refer [deftest is testing]])) [clojure.test :as t :refer [deftest is testing]]))
(defn bb [input & args]
(edn/read-string (apply tu/bb (when (some? input) (str input)) (map str args))))
(deftest uberscript-test (deftest uberscript-test
(let [tmp-file (java.io.File/createTempFile "uberscript" ".clj")] (let [tmp-file (java.io.File/createTempFile "uberscript" ".clj")]
(.deleteOnExit tmp-file) (.deleteOnExit tmp-file)