Carve
This commit is contained in:
parent
4819a9b434
commit
ee22efdb40
6 changed files with 4 additions and 21 deletions
4
.carve/ignore
Normal file
4
.carve/ignore
Normal 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
|
||||||
|
|
@ -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
|
||||||
|
|
|
||||||
|
|
@ -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
|
||||||
|
|
|
||||||
|
|
@ -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)]
|
||||||
|
|
|
||||||
|
|
@ -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)
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue