martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update some native comp tests

Browse Source 
* 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.
This commit is contained in:
Andrea Corallo
2024-02-15 17:48:43 +01:00
parent aa84998489
commit 4a0d430bdc
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/lisp/emacs-lisp/comp-cstr-tests.el
View File

@@ -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

4
test/src/comp-tests.el
View File

@@ -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)