mirror of
https://github.com/janet-lang/janet
synced 2024-11-24 17:27:18 +00:00
Don't fail testing when ev disabled.
This commit is contained in:
parent
c68264802a
commit
a5f237993d
@ -147,17 +147,18 @@
|
|||||||
(assert (= 0 (os/execute [(dyn :executable) "-e" "(+ 1 2 3)"] :pe {"HELLO" "WORLD"})) "os/execute with env")
|
(assert (= 0 (os/execute [(dyn :executable) "-e" "(+ 1 2 3)"] :pe {"HELLO" "WORLD"})) "os/execute with env")
|
||||||
|
|
||||||
# Regression #638
|
# Regression #638
|
||||||
(assert
|
(compwhen
|
||||||
(= [true :caught]
|
(dyn 'ev/go)
|
||||||
(protect
|
(assert
|
||||||
(try
|
(= [true :caught]
|
||||||
(do
|
(protect
|
||||||
(ev/sleep 0)
|
(try
|
||||||
(with-dyns []
|
(do
|
||||||
(ev/sleep 0)
|
(ev/sleep 0)
|
||||||
(error "oops")))
|
(with-dyns []
|
||||||
([err] :caught))))
|
(ev/sleep 0)
|
||||||
"regression #638")
|
(error "oops")))
|
||||||
|
([err] :caught))))
|
||||||
|
"regression #638"))
|
||||||
|
|
||||||
(end-suite)
|
(end-suite)
|
||||||
|
Loading…
Reference in New Issue
Block a user