diff options
| author | Mark H Weaver <mhw@netris.org> | 2014-02-07 21:42:28 -0500 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2014-02-07 21:49:35 -0500 |
| commit | 0ce224594ae5a673f6a397c284db5f5a61935334 (patch) | |
| tree | eb277832f8bde7aff367ca95703dfea4d09df6df /test-suite/guile-test | |
| parent | 495cea0c931de23f074892b3f32808e676712a18 (diff) | |
| download | guile-0ce224594ae5a673f6a397c284db5f5a61935334.tar.gz | |
Improve handling of locales in the test suite.
* test-suite/guile-test (run-tests): Load each test file within
(with-locale "C" ...).
* test-suite/tests/encoding-iso88591.test:
* test-suite/tests/encoding-iso88597.test:
* test-suite/tests/encoding-utf8.test:
* test-suite/tests/srfi-14.test: Remove broken code to save and restore
the previous locale.
* test-suite/tests/bytevectors.test:
* test-suite/tests/format.test:
* test-suite/tests/regexp.test:
* test-suite/tests/srfi-19.test:
* test-suite/tests/tree-il.test: Make sure 'setlocale' is defined before
calling it.
Diffstat (limited to 'test-suite/guile-test')
| -rwxr-xr-x | test-suite/guile-test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/test-suite/guile-test b/test-suite/guile-test index cdcfe4928..43ea48174 100755 --- a/test-suite/guile-test +++ b/test-suite/guile-test @@ -5,7 +5,7 @@ ;;;; guile-test --- run the Guile test suite ;;;; Jim Blandy <jimb@red-bean.com> --- May 1999 ;;;; -;;;; Copyright (C) 1999, 2001, 2006, 2010 Free Software Foundation, Inc. +;;;; Copyright (C) 1999, 2001, 2006, 2010, 2014 Free Software Foundation, Inc. ;;;; ;;;; This program is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -239,8 +239,9 @@ (lambda () (for-each (lambda (test) (display (string-append "Running " test "\n")) - (with-test-prefix test - (load (test-file-name test)))) + (with-locale "C" + (with-test-prefix test + (load (test-file-name test))))) tests)))) (if (opt 'coverage #f) (let-values (((coverage-data _) @@ -262,4 +263,5 @@ ;;; Local Variables: ;;; mode: scheme +;;; eval: (put 'with-locale 'scheme-indent-function 1) ;;; End: |