Fix print-tests

* test/src/print-tests.el (terpri): Erase the buffer *terpri-test*
before individual runs.  (Bug#72334)
(print-circle): Allow circular references with number greater than 9.

(cherry picked from commit 5f1d52c43b5eafeb4938d99c275e78c9155f4142)

diff --git a/test/src/print-tests.el b/test/src/print-tests.el
index ddee6d914a4db5deaf3a5e44f863708dfbdcf11e..1a04cf73f30a415238c647119cbcac1f206fef4d 100644 (file)
--- a/test/src/print-tests.el
+++ b/test/src/print-tests.el
@@ -130,6 +130,7 @@ otherwise, use a different charset."
                      "abc\n")))
   (let ((standard-output
          (with-current-buffer (get-buffer-create "*terpri-test*")
+           (erase-buffer)
            (insert "--------")
            (point-max-marker))))
     (should     (terpri nil t))
@@ -338,7 +339,7 @@ otherwise, use a different charset."
 (print-tests--deftest print-circle ()
   (let ((x '(#1=(a . #1#) #1#)))
     (let ((print-circle nil))
-      (should (string-match "\\`((a . #[0-9]) (a . #[0-9]))\\'"
+      (should (string-match "\\`((a . #[0-9]+) (a . #[0-9]+))\\'"
                             (print-tests--prin1-to-string x))))
     (let ((print-circle t))
       (should (equal "(#1=(a . #1#) #1#)" (print-tests--prin1-to-string x))))))