[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 2d23f19 3/4: * Fix two comp-cstr tests
From: |
Andrea Corallo |
Subject: |
feature/native-comp 2d23f19 3/4: * Fix two comp-cstr tests |
Date: |
Tue, 13 Apr 2021 06:11:48 -0400 (EDT) |
branch: feature/native-comp
commit 2d23f19e7d5ff8a1ec1a188dcd530c185029d1f8
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* Fix two comp-cstr tests
* test/lisp/emacs-lisp/comp-cstr-tests.el
(comp-cstr-typespec-tests-alist): Fix test 53 70.
---
test/lisp/emacs-lisp/comp-cstr-tests.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/test/lisp/emacs-lisp/comp-cstr-tests.el
b/test/lisp/emacs-lisp/comp-cstr-tests.el
index f2d9bf5..c2492b9 100644
--- a/test/lisp/emacs-lisp/comp-cstr-tests.el
+++ b/test/lisp/emacs-lisp/comp-cstr-tests.el
@@ -147,7 +147,7 @@
;; 52 Conservative.
((or (member foo) (not string)) . (not string))
;; 53
- ((or (not (integer 1 2)) integer) . integer)
+ ((or (not (integer 1 2)) integer) . t)
;; 54
((or (not (integer 1 2)) (not integer)) . (not integer))
;; 55
@@ -181,7 +181,7 @@
;; 69
((and (integer 0 20) (not (integer 5 10))) . (or (integer 0 4) (integer
11 20)))
;; 70
- ((and (not (member a)) (not (member b))) . (not (member b a)))
+ ((and (not (member a)) (not (member b))) . (not (member a b)))
;; 71
((and (not boolean) (not (member b))) . (not (or (member b) boolean)))
;; 72