diff options
author | Dmitry Kurochkin <dmitry.kurochkin@gmail.com> | 2011-06-28 08:45:06 +0400 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2011-06-28 15:06:47 -0700 |
commit | 3b24b396c4c9178603dec5380b4e89f6795dee1f (patch) | |
tree | bb352725128a5a9eb1afcc403375a88f7f7b8ce9 /test/test-lib.el | |
parent | caeb05493d5d0c97859cfd6303d8c64071dd69ea (diff) |
test: save buffer content to file instead of printing it in Emacs tests
Before the change, the common Emacs test scheme was to print
buffer content to stdout and redirect it to a file or capture it
in a shell variable. This does not work if we switch to using
emacsclient(1) for running the tests, because you can not print
to the stdout in this case. (Actually, you can print to stdout
from Emacs server, but you can not capture the output on
emacsclient(1)).
The patch introduces new Emacs test auxiliary functions:
`test-output' and `test-visible-output'. These functions are
used to save buffer content to a file directly from Emacs. For
most tests the changes are trivial, because Emacs stdout output
was redirected to a file anyway. But some tests captured the
output in a shell variable and compare it with the expected
output using test_expect_equal. These tests are changed to use
files and test_expect_equal_file instead.
Note: even if we do not switch Emacs tests to emacsclient(1), the
patch makes tests cleaner and is an improvement.
Diffstat (limited to 'test/test-lib.el')
-rw-r--r-- | test/test-lib.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/test-lib.el b/test/test-lib.el index 344a02e8..4e7f5cfc 100644 --- a/test/test-lib.el +++ b/test/test-lib.el @@ -28,6 +28,16 @@ (while (get-buffer-process (current-buffer)) (sleep-for 0.1))) +(defun test-output (&optional filename) + "Save current buffer to file FILENAME. Default FILENAME is OUTPUT." + (write-region (point-min) (point-max) (or filename "OUTPUT"))) + +(defun test-visible-output (&optional filename) + "Save visible text in current buffer to file FILENAME. Default +FILENAME is OUTPUT." + (let ((text (visible-buffer-string))) + (with-temp-file (or filename "OUTPUT") (insert text)))) + (defun visible-buffer-string () "Same as `buffer-string', but excludes invisible text." (visible-buffer-substring (point-min) (point-max))) |