M src/env.janet => src/env.janet +0 -1
@@ 1,5 1,4 @@
(import temple)
-(import sh)
(def required-checks @{})
(def exec-blacklist @{})
A test/core.janet => test/core.janet +21 -0
@@ 0,0 1,21 @@
+(import testament :prefix "" :exit true)
+(import src/core)
+
+(defn- test-temple []
+ (require "test/support/test"))
+
+(defn- test-bagatto [] (eval 'bagatto/json-data))
+
+(deftest thread-init
+ (def run (fn [parent]
+ (test-temple)
+ (test-bagatto)
+ (:send parent :tests-pass)))
+
+ (assert-thrown (test-temple))
+ (assert-thrown (test-bagatto))
+
+ (core/thread-init run)
+ (is (= (thread/receive) :tests-pass)))
+
+(run-tests!)
M test/require.janet => test/require.janet +1 -2
@@ 13,7 13,6 @@
(env/defrequire "this-application-cannot-be-found" should-fail [] :ok)
(env/prepare-root-env!)
(env/setdyn-blacklist!)
- (assert-thrown
- (should-fail)))
+ (assert-thrown (should-fail)))
(run-tests!)