Add a test for puthash

It's actually for a bug on the feature/igc branch.

* test/src/fns-tests.el (ft-puthash-weak): New test
(ft--puthash-weak): New helper.

1 files changed, 16 insertions, 0 deletions

diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el
index e0467c0b871..7e9286a4251 100644
--- a/test/src/fns-tests.el
+++ b/test/src/fns-tests.el
@@ -1330,6 +1330,22 @@
 (ert-deftest ft-weak-and-removal () (ft--test-weak-removal 'key-and-value))
 (ert-deftest ft-weak-or-removal () (ft--test-weak-removal 'key-or-value))
 
+(defun ft--test-puthash (weakness)
+  (let ((h (make-hash-table :weakness weakness))
+        (a (string ?a))
+        (b (string ?b))
+        (c (string ?c)))
+    (puthash a a h)
+    (should (eq (gethash a h) a))
+    (puthash a b h)
+    (should (eq (gethash a h) b))
+    (puthash a c h)
+    (should (eq (gethash a h) c))))
+
+(ert-deftest ft-puthash-weak ()
+  (dolist (w '(nil key value key-and-value key-or-value))
+    (ft--test-puthash w)))
+
 
 
 (ert-deftest test-hash-function-that-mutates-hash-table ()