Mercurial > hg > xemacs-beta

comparison lisp/test-harness.el @ 5274:ecdd1daab447

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add an omitted comma, Check-Message, test-harness.el. lisp/ChangeLog addition: 2010-09-16 Aidan Kehoe <kehoea@parhasard.net> * test-harness.el (Check-Message): Add an omitted comma here, thank you the buildbot.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 16 Sep 2010 21:00:17 +0100
parents 0f66906b6e37
children f00192e1cd49 308d34e9f07d
comparison
equal deleted inserted replaced
5273:799742b751c8 5274:ecdd1daab447
500 (defmacro Check-Message (expected-message-regexp &rest body) 500 (defmacro Check-Message (expected-message-regexp &rest body)
501 (let ((quoted-body (if (= 1 (length body)) 501 (let ((quoted-body (if (= 1 (length body))
502 `(quote ,(car body)) 502 `(quote ,(car body))
503 `(quote (progn ,@body))))) 503 `(quote (progn ,@body)))))
504 `(Skip-Test-Unless (fboundp 'defadvice) "can't defadvice" 504 `(Skip-Test-Unless (fboundp 'defadvice) "can't defadvice"
505 expected-message-regexp 505 ,expected-message-regexp
506 (let ((messages "")) 506 (let ((messages ""))
507 (defadvice message (around collect activate) 507 (defadvice message (around collect activate)
508 (defvar messages) 508 (defvar messages)
509 (let ((msg-string (apply 'format (ad-get-args 0)))) 509 (let ((msg-string (apply 'format (ad-get-args 0))))
510 (setq messages (concat messages msg-string)) 510 (setq messages (concat messages msg-string))