diff options
Diffstat (limited to 'test/src/print-tests.el')
-rw-r--r-- | test/src/print-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/src/print-tests.el b/test/src/print-tests.el index 1ef0caf1a46..0bae1959d1b 100644 --- a/test/src/print-tests.el +++ b/test/src/print-tests.el @@ -417,5 +417,13 @@ otherwise, use a different charset." t))) (should (equal (prin1-to-string (make-marker)) "")))) +(ert-deftest test-dots () + (should (equal (prin1-to-string 'foo.bar) "foo.bar")) + (should (equal (prin1-to-string '.foo) "\\.foo")) + (should (equal (prin1-to-string '.foo.) "\\.foo.")) + (should (equal (prin1-to-string 'bar?bar) "bar?bar")) + (should (equal (prin1-to-string '\?bar) "\\?bar")) + (should (equal (prin1-to-string '\?bar?) "\\?bar?"))) + (provide 'print-tests) ;;; print-tests.el ends here |