test from src

This commit is contained in:
Michiel Borkent 2024-10-31 14:15:47 +01:00
parent 23aa68346c
commit a671ed4e38
4 changed files with 6 additions and 9 deletions

View file

@ -53,7 +53,6 @@
[babashka.impl.server :refer [clojure-core-server-namespace]]
[babashka.impl.socket-repl :as socket-repl]
[babashka.impl.tasks :as tasks :refer [tasks-namespace]]
[babashka.impl.test :as t]
[babashka.impl.tools.cli :refer [tools-cli-namespace]]
[babashka.impl.uberscript :as uberscript]
[babashka.nrepl.server :as nrepl-server]

View file

@ -9,6 +9,7 @@
[bencode.core :as bencode]
[clojure.test :as t :refer [deftest is testing]]
[sci.core :as sci]
[babashka.impl.common :as common]
[sci.ctx-store :as ctx-store]
[babashka.impl.classpath :as cp])
(:import
@ -213,8 +214,8 @@
(deftest ^:skip-windows nrepl-server-test
(let [proc-state (atom nil)
server-state (atom nil)
ctx (sci/init {:namespaces main/namespaces
:features #{:bb}})]
_ (main/main "-e" "nil") ;; dummy invocation to reset ctx
ctx (common/ctx)]
(sci.ctx-store/with-ctx ctx
(try
(if tu/jvm?

View file

@ -1,17 +1,14 @@
(ns babashka.test-test
(:require
[babashka.impl.clojure.test :as test-impl]
#_[babashka.impl.clojure.test :as test-impl]
[babashka.test-utils :as tu]
[clojure.edn :as edn]
[clojure.java.io :as io]
[clojure.string :as str]
[clojure.test :as t :refer [deftest is]]
[sci.core :as sci]))
[clojure.test :as t :refer [deftest is]]))
(defn bb [& args]
(let [sw (java.io.StringWriter.)]
(sci/binding [test-impl/test-out sw]
(str sw (apply tu/bb nil (map str args))))))
(str (apply tu/bb nil (map str args))))
(deftest deftest-test
(is (str/includes?