diff options
author | Andy Wingo <wingo@pobox.com> | 2013-01-15 16:26:06 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-01-15 16:32:17 +0100 |
commit | 99d716b6f681f5d39288efffd0ee534bb9866fa9 (patch) | |
tree | 93cbd791e2b08f1d5ae2e5f75955542d69e72370 | |
parent | 8c76a8971ba92ebdf657199b74506f607987b523 (diff) | |
download | guile-99d716b6f681f5d39288efffd0ee534bb9866fa9.tar.gz |
UTF-8 string ports in ecmascript test
* test-suite/tests/ecmascript.test (eread, eread/1): Make sure we can
render the temporary string ports by specifying UTF-8.
-rw-r--r-- | test-suite/tests/ecmascript.test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/test-suite/tests/ecmascript.test b/test-suite/tests/ecmascript.test index 8b5dd826f..f15499c37 100644 --- a/test-suite/tests/ecmascript.test +++ b/test-suite/tests/ecmascript.test @@ -1,6 +1,6 @@ ;;;; ecmascript.test --- ECMAScript. -*- mode: scheme; coding: utf-8; -*- ;;;; -;;;; Copyright (C) 2010, 2011 Free Software Foundation, Inc. +;;;; Copyright (C) 2010, 2011, 2013 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -23,9 +23,11 @@ (define (eread str) - (call-with-input-string str read-ecmascript)) + (with-fluids ((%default-port-encoding "utf-8")) + (call-with-input-string str read-ecmascript))) (define (eread/1 str) - (call-with-input-string str read-ecmascript/1)) + (with-fluids ((%default-port-encoding "utf-8")) + (call-with-input-string str read-ecmascript/1))) (define-syntax parse (syntax-rules () |