1 files changed, 8 insertions, 2 deletions

diff --git a/test/lisp/emacs-lisp/memory-report-tests.el b/test/lisp/emacs-lisp/memory-report-tests.el
index 146800fd2e8..01bcf18423a 100644
--- a/test/lisp/emacs-lisp/memory-report-tests.el
+++ b/test/lisp/emacs-lisp/memory-report-tests.el
@@ -37,11 +37,17 @@
   (should (equal (memory-report-object-size (cons nil nil)) 16))
   (should (equal (memory-report-object-size (cons 1 2)) 16))
 
+  (should (equal (memory-report-object-size (list 1 2)) 32))
+  (should (equal (memory-report-object-size (list 1)) 16))
+
+  (should (equal (memory-report-object-size (list 'foo)) 16))
+
+  (should (equal (memory-report-object-size (vector 1 2 3 4)) 80))
+
   (should (equal (memory-report-object-size "") 32))
   (should (equal (memory-report-object-size "a") 33))
   (should (equal (memory-report-object-size (propertize "a" 'face 'foo))
-                 ;; Possibly?
-                 161)))
+                 81)))
 
 (provide 'memory-report-tests)