mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

UTF-8 string ports in ecmascript test

Browse source 
* test-suite/tests/ecmascript.test (eread, eread/1): Make sure we can
  render the temporary string ports by specifying UTF-8.
This commit is contained in:
Andy Wingo 2013-01-15 16:26:06 +01:00
parent 8c76a8971b
commit 99d716b6f6
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/tests/ecmascript.test
View file

@ -1,6 +1,6 @@
;;;; ecmascript.test --- ECMAScript. -*- mode: scheme; coding: utf-8; -*- ;;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -23,9 +23,11 @@
(define (eread str) (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) (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 (define-syntax parse
(syntax-rules () (syntax-rules ()