[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."
- feature/native-comp updated (d71801e -> 4b4c753), Andrea Corallo, 2020/02/15
- feature/native-comp 0c6f4ca 3/6: Clean-up old gc disable refuse in comp-tests-non-locals,
Andrea Corallo <=
- feature/native-comp fe9e4c4 2/6: Better function naming for comp-function-call-maybe-remove, Andrea Corallo, 2020/02/15
- feature/native-comp 3b3525b 5/6: Backward propagate only once, Andrea Corallo, 2020/02/15
- feature/native-comp 4b4c753 6/6: Speed 2 goes default, Andrea Corallo, 2020/02/15
- feature/native-comp c27394d 4/6: Rework frame layout, Andrea Corallo, 2020/02/15
- feature/native-comp f1bc8e4 1/6: Merge remote-tracking branch 'savannah/master' into HEAD, Andrea Corallo, 2020/02/15