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 878db70609d5db2bbbdabfc3382e7fda0ee8258f..f2a246320acf4780e2236e11d19c0e72219f85d2 100644 (file)
--- 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)))
+
 
 \f
 ;;;;;;;;;;;;;;;;;;;;

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index cb9032aa410b771f0ef162c439f5867aa98528a6..a1e91ec5141a814f40e84a8aed4261fe019365f6 100644 (file)
--- 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))))
 
 \f
 ;;;;;;;;;;;;;;;;;;;;;