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.

2 files changed, 12 insertions, 1 deletions

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