From: AndreaCorallo <akrl@sdf.org>
Date: Fri, 14 Feb 2020 14:32:47 +0000 (+0000)
Subject: Clean-up old gc disable refuse in comp-tests-non-locals
X-Git-Tag: emacs-28.0.90~2727^2~833
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c6f4caeb32b2bf531079feb5a9e73b79496b99d;p=emacs.git

Clean-up old gc disable refuse in comp-tests-non-locals
---

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index bd844a90c3c..15a39c4e883 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."