emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/native-comp 0c6f4ca 3/6: Clean-up old gc disable refuse in comp-


From: Andrea Corallo
Subject: feature/native-comp 0c6f4ca 3/6: Clean-up old gc disable refuse in comp-tests-non-locals
Date: Sat, 15 Feb 2020 04:24:38 -0500 (EST)

branch: feature/native-comp
commit 0c6f4caeb32b2bf531079feb5a9e73b79496b99d
Author: AndreaCorallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    Clean-up old gc disable refuse in comp-tests-non-locals
---
 test/src/comp-tests.el | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index bd844a9..15a39c4 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -258,16 +258,15 @@ Check that the resulting binaries do not differ."
 
 (ert-deftest comp-tests-non-locals ()
   "Test non locals."
-  (let ((gc-cons-threshold most-positive-fixnum)) ;; FIXME!!
-    (should (string= (comp-tests-condition-case-0-f)
-                     "arith-error Arithmetic error catched"))
-    (should (string= (comp-tests-condition-case-1-f)
-                     "error foo catched"))
-    (should (= (comp-tests-catch-f
-                                (lambda () (throw 'foo 3)))
-               3))
-    (should (= (catch 'foo
-                 (comp-tests-throw-f 3))))))
+  (should (string= (comp-tests-condition-case-0-f)
+                   "arith-error Arithmetic error catched"))
+  (should (string= (comp-tests-condition-case-1-f)
+                   "error foo catched"))
+  (should (= (comp-tests-catch-f
+              (lambda () (throw 'foo 3)))
+             3))
+  (should (= (catch 'foo
+               (comp-tests-throw-f 3)))))
 
 (ert-deftest comp-tests-gc ()
   "Try to do some longer computation to let the gc kick in."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]