Assertion-testing style edit

2016-10-11 15:48:40 -07:00 · 2016-10-11 15:48:40 -07:00 · cd1d12565d
commit cd1d12565d
parent 4b0296d257
1 changed files with 3 additions and 2 deletions
--- a/tests/native_tests/core.hy
+++ b/tests/native_tests/core.hy
@ -35,8 +35,9 @@

 (defn assert-requires-num [f]
  (for [x ["foo" [] None]]
-    (assert-true (try (do (f x) False)
-                 (except [e [TypeError]] True)))))
+    (try (f x)
+         (except [TypeError] True)
+         (else (assert False)))))

 (defn test-coll? []
  "NATIVE: testing coll?"