Don't fail testing when ev disabled.

2021-02-20 10:56:54 -06:00 · 2021-02-20 10:56:54 -06:00 · a5f237993d
parent c68264802a
commit a5f237993d
1 changed files with 12 additions and 11 deletions
--- a/test/suite0010.janet
+++ b/test/suite0010.janet
@ -147,17 +147,18 @@
 (assert (= 0 (os/execute [(dyn :executable) "-e" "(+ 1 2 3)"] :pe {"HELLO" "WORLD"})) "os/execute with env")

 # Regression #638
-(assert
-  (= [true :caught]
-     (protect
-       (try
-         (do
-           (ev/sleep 0)
-           (with-dyns []
+(compwhen
+  (dyn 'ev/go)
+  (assert
+    (= [true :caught]
+       (protect
+         (try
+           (do
             (ev/sleep 0)
-             (error "oops")))
-         ([err] :caught))))
-  "regression #638")
-
+             (with-dyns []
+               (ev/sleep 0)
+               (error "oops")))
+           ([err] :caught))))
+    "regression #638"))

 (end-suite)