Parent Directory | Revision Log | Patch
revision 1.32 by pfdietz, Sat Nov 27 21:55:26 2004 UTC | revision 1.33 by pfdietz, Mon Dec 6 14:04:21 2004 UTC | |
---|---|---|
# | Line 440 | Line 440 |
440 | tail ,num-left) | tail ,num-left) |
441 | ))))) | ))))) |
442 | ,expected-output))))) | ,expected-output))))) |
443 | ||
444 | ;;; Macro used for an idiom in testing FORMATTER calls | |
445 | ||
446 | (defmacro formatter-call-to-string (fn &body args) | |
447 | (let ((stream (gensym "S"))) | |
448 | `(with-output-to-string | |
449 | (,stream) | |
450 | (assert (equal (funcall ,fn ,stream ,@args 'a) '(a)))))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |