procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update a cl-print test

Browse source 
* test/lisp/emacs-lisp/cl-print-tests.el (cl-print-tests-1):
Update for recent change in cl-print-object function output.
This commit is contained in:
Glenn Morris 2017-03-08 14:43:16 -05:00
parent e4fff0ff2a
commit de610c4b67
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test/lisp/emacs-lisp/cl-print-tests.el
View file

@ -34,7 +34,7 @@
(let ((print-circle t))
(should (equal (cl-prin1-to-string `((x . ,x) (y . ,x)))
"((x . #1=#s(cl-print--test :a 1 :b 2)) (y . #1#))")))
(should (string-match "\\`#<compiled-function (x) .*>\\'"
(should (string-match "\\`#f(compiled-function (x) .*)\\'"
(cl-prin1-to-string (symbol-function #'caar))))))
;;; cl-print-tests.el ends here.