diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-03-04 11:32:51 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-03-04 11:32:51 +0100 |
commit | dec84a0a6e164d7c92982ea78c27e85df56ed477 (patch) | |
tree | 6d14f4d55e0d85b531c80ee6496021202a58bcad /test-suite/guile-test | |
parent | 87bc7c81650fef2ee8bc83bceab6ea565a47f2b5 (diff) | |
download | guile-dec84a0a6e164d7c92982ea78c27e85df56ed477.tar.gz |
Try to avoid `guile-test' failures when it can't display the name of a test.
This can happen, e.g., when printing "UNRESOLVED: regexp.test: TEST-NAME",
where TEST-NAME contains characters that cannot be converted to the
encoding of the current output or error port.
* test-suite/guile-test (main): Set the conversion strategy for the
output and error ports to `escape'.
* test-suite/tests/regexp.test (current-output-port): Likewise.
Diffstat (limited to 'test-suite/guile-test')
-rwxr-xr-x | test-suite/guile-test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/guile-test b/test-suite/guile-test index bb7797fcd..0031bbf4c 100755 --- a/test-suite/guile-test +++ b/test-suite/guile-test @@ -208,6 +208,10 @@ ;; Allow for arbitrary Unicode characters in the log file. (set-port-encoding! log-port "UTF-8") + ;; Don't fail if we can't display a test name to stdout/stderr. + (set-port-conversion-strategy! (current-output-port) 'escape) + (set-port-conversion-strategy! (current-error-port) 'escape) + ;; Register some reporters. (let ((global-pass #t) (counter (make-count-reporter))) |