feature/native-comp 062e599: Improve a native compiler test

[Andrea Corallo]

branch: feature/native-comp
commit 062e5994802bbe634bae7f1aef99f65daf1ec44e
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    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 878db70..f2a2463 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 cb9032a..a1e91ec 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))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;