[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/type-hierarchy 4a0d430bdc3 5/5: Update some native comp tests
From: |
Andrea Corallo |
Subject: |
feature/type-hierarchy 4a0d430bdc3 5/5: Update some native comp tests |
Date: |
Thu, 15 Feb 2024 12:03:31 -0500 (EST) |
branch: feature/type-hierarchy
commit 4a0d430bdc3650ca3dfd8bdd14781764fbcbdc7e
Author: Andrea Corallo <acorallo@gnu.org>
Commit: Andrea Corallo <acorallo@gnu.org>
Update some native comp tests
* test/src/comp-tests.el (comp-tests-ret-type-spec-13)
(comp-tests-ret-type-spec-35): Update.
* test/lisp/emacs-lisp/comp-cstr-tests.el (comp-cstr-test-62)
(comp-cstr-test-75): Likewise.
---
test/lisp/emacs-lisp/comp-cstr-tests.el | 4 ++--
test/src/comp-tests.el | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/test/lisp/emacs-lisp/comp-cstr-tests.el
b/test/lisp/emacs-lisp/comp-cstr-tests.el
index edc70b12d4b..c3a7092819d 100644
--- a/test/lisp/emacs-lisp/comp-cstr-tests.el
+++ b/test/lisp/emacs-lisp/comp-cstr-tests.el
@@ -170,7 +170,7 @@ The arg is an alist of: type specifier -> expected type
specifier."
;; 61
((and atom (not symbol)) . atom)
;; 62
- ((and atom (not string)) . (or array sequence atom))
+ ((and atom (not string)) . (or array atom))
;; 63 Conservative
((and symbol (not (member foo))) . symbol)
;; 64 Conservative
@@ -196,7 +196,7 @@ The arg is an alist of: type specifier -> expected type
specifier."
;; 74
((and boolean (or number marker)) . nil)
;; 75
- ((and atom (or number marker)) . number-or-marker)
+ ((and atom (or number marker)) . (or integer-or-marker number-or-marker))
;; 76
((and symbol (or number marker)) . nil)
;; 77
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 54a9a6c11cc..8bfe939fb23 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -1022,7 +1022,7 @@ Return a list of results."
(if (= x y)
x
'foo))
- '(or (member foo) number-or-marker))
+ '(or (member foo) number-or-marker integer-or-marker))
;; 14
((defun comp-tests-ret-type-spec-f (x)
@@ -1162,7 +1162,7 @@ Return a list of results."
((defun comp-tests-ret-type-spec-f (x)
(when (> x 1.0)
x))
- '(or null number-or-marker))
+ '(or null number-or-marker integer-or-marker))
;; 36
((defun comp-tests-ret-type-spec-f (x y)