mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-22 05:51:11 -07:00
Code Issues Projects Releases Wiki Activity

Improve a native compiler test

Browse source 
* test/src/comp-tests.el (comp-test-47868-1): Improve
	testcase.
	* test/src/comp-test-funcs.el (comp-test-47868-3-f)
	(comp-test-47868-4-f): New functions.
This commit is contained in:
Andrea Corallo 2021-04-22 09:57:30 +02:00
parent 606188a360
commit 062e599480
2 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/src/comp-test-funcs.el
View file

@ -508,6 +508,12 @@
(defun comp-test-47868-2-f ()
#(" " 0 1 (face font-lock-keyword-face)))
(defun comp-test-47868-3-f ()
" ")
(defun comp-test-47868-4-f ()
#(" " 0 1 (face font-lock-keyword-face)))
;;;;;;;;;;;;;;;;;;;;

7
test/src/comp-tests.el
View file

@ -508,8 +508,13 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html."
(should (equal (comp-test-46824-1-f) nil)))
(comp-deftest comp-test-47868-1 ()
"Verify string hash consing strategy.
<https://lists.gnu.org/archive/html/bug-gnu-emacs/2021-04/msg00921.html>"
(should-not (equal-including-properties (comp-test-47868-1-f)
(comp-test-47868-2-f))))
(comp-test-47868-2-f)))
(should (eq (comp-test-47868-1-f) (comp-test-47868-3-f)))
(should (eq (comp-test-47868-2-f) (comp-test-47868-4-f))))
;;;;;;;;;;;;;;;;;;;;;