From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 22 Apr 2021 07:57:30 +0000 (+0200)
Subject: Improve a native compiler test
X-Git-Tag: emacs-28.0.90~2727^2~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=062e5994802bbe634bae7f1aef99f65daf1ec44e;p=emacs.git

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

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.
+
+<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))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;