These few lines of Elisp simplify the testing of Clojure and ClojureScript libraries with Org Babel (ob-clojure.el).
Just load ob-clojure-literate-extras.el file with load-file and
you will be able to run code blocks like these:
(require '[clojure.core.memoize :as m])
(def id (m/ttl
#(do (Thread/sleep 1000) (identity %))
:ttl/threshold 3000))
(defmacro time-ms [expr]
`(let [start# (. System (nanoTime))]
~expr
(/ (double (- (. System (nanoTime)) start#) ) (. Math (pow 10 6))))
)
(time-ms (id 1))
(time-ms (id 1))
(Thread/sleep 3000)
(time-ms (id 1))(ns example.core
(:require-macros [cljs.core.async.macros :refer [go]])
(:require [cljs-http.client :as http]
[cljs.core.async :refer [<!]]))
(def result (atom {}))
(go (let [response (<! (http/get "https://api.github.com/users"
{:with-credentials? false
:query-params {"since" 135}}))]
(swap! result #(conj %
[:status (:status response)]
[:login (map :login (:body response))]))))
@result