From 062e5994802bbe634bae7f1aef99f65daf1ec44e Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 22 Apr 2021 09:57:30 +0200 Subject: [PATCH] Improve a native compiler test * 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. --- test/src/comp-test-funcs.el | 6 ++++++ test/src/comp-tests.el | 7 ++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el index 878db70609d..f2a246320ac 100644 --- a/test/src/comp-test-funcs.el +++ b/test/src/comp-test-funcs.el @@ -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))) + ;;;;;;;;;;;;;;;;;;;; diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index cb9032aa410..a1e91ec5141 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -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. + +" (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)))) ;;;;;;;;;;;;;;;;;;;;; -- 2.39.5