summaryrefslogtreecommitdiff
path: root/test-suite/tests/coding.test
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-01-17 18:18:41 +0100
committerLudovic Courtès <ludo@gnu.org>2014-01-17 18:18:41 +0100
commit3ff8a9d6ff9c8b9f3be7c03b624b3042bb61079f (patch)
treecb1a10d7e00265489058baac1e0414c611e18e2a /test-suite/tests/coding.test
parent802a25b1ed5c738aa5f9d3d01f33eb89b22afd1b (diff)
downloadguile-3ff8a9d6ff9c8b9f3be7c03b624b3042bb61079f.tar.gz
Arrange so that 'file-encoding' does not truncate the encoding name.
Fixes <http://bugs.gnu.org/16463>. Reported by Sree Harsha Totakura <sreeharsha@totakura.in>. * libguile/read.c (ENCODING_NAME_MAX_SIZE): New macro. (SCM_ENCODING_SEARCH_SIZE): Change to 500 + ENCODING_NAME_MAX_SIZE. (scm_i_scan_for_encoding): Return NULL if there's less than ENCODING_NAME_MAX_SIZE bytes once "coding: *" has been read. * test-suite/tests/coding.test ("line comment")["http://bugs.gnu.org/16463"]: New test.
Diffstat (limited to 'test-suite/tests/coding.test')
-rw-r--r--test-suite/tests/coding.test10
1 files changed, 8 insertions, 2 deletions
diff --git a/test-suite/tests/coding.test b/test-suite/tests/coding.test
index a8a415ff4..b57ef7da7 100644
--- a/test-suite/tests/coding.test
+++ b/test-suite/tests/coding.test
@@ -1,6 +1,6 @@
;;;; coding.test --- test suite for coding declarations. -*- mode: scheme -*-
;;;;
-;;;; Copyright (C) 2011, 2013 Free Software Foundation, Inc.
+;;;; Copyright (C) 2011, 2013, 2014 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
@@ -101,4 +101,10 @@
(pass-if-equal "second line, whitespace, nl"
"ISO-8859-1"
- (scan-coding "\n; coding: iso-8859-1 \n")))
+ (scan-coding "\n; coding: iso-8859-1 \n"))
+
+ (pass-if-equal "http://bugs.gnu.org/16463"
+ ;; On Guile <= 2.0.9, this would return "ISO-8".
+ "ISO-8859-1"
+ (scan-coding (string-append (make-string 485 #\space)
+ "; coding: ISO-8859-1"))))