summaryrefslogtreecommitdiff
path: root/test-suite/tests
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2014-01-14 03:18:34 -0500
committerMark H Weaver <mhw@netris.org>2014-01-14 03:18:34 -0500
commitcb8aaef4d08989aea2b7f088d298f71a03ecc1b2 (patch)
tree4db2351d09ed63760f55c50ec4cc61a432fb3448 /test-suite/tests
parentb958141cdb081ceb16ca5828abda71f772fe0c57 (diff)
parent0fc548287e154349f3365976e6a5854736b651ed (diff)
downloadguile-cb8aaef4d08989aea2b7f088d298f71a03ecc1b2.tar.gz
Merge branch 'stable-2.0'
Conflicts: libguile/chars.c libguile/read.c test-suite/tests/reader.test
Diffstat (limited to 'test-suite/tests')
-rw-r--r--test-suite/tests/reader.test18
1 files changed, 17 insertions, 1 deletions
diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test
index e1fe22dad..9f30b4bff 100644
--- a/test-suite/tests/reader.test
+++ b/test-suite/tests/reader.test
@@ -1,7 +1,7 @@
;;;; reader.test --- Reader test. -*- coding: iso-8859-1; mode: scheme -*-
;;;;
;;;; Copyright (C) 1999, 2001, 2002, 2003, 2007, 2008, 2009, 2010, 2011,
-;;;; 2013 Free Software Foundation, Inc.
+;;;; 2013, 2014 Free Software Foundation, Inc.
;;;; Jim Blandy <jimb@red-bean.com>
;;;;
;;;; This library is free software; you can redistribute it and/or
@@ -73,6 +73,22 @@
(not (equal? (imag-part (read-string "-nan.0-1i"))
(imag-part (read-string "-nan.0+1i")))))
+ (pass-if-equal "'\|' in string literals"
+ "a|b"
+ (read-string "\"a\\|b\""))
+
+ (pass-if-equal "#\\escape"
+ '(a #\esc b)
+ (read-string "(a #\\escape b)"))
+
+ (pass-if-equal "#true"
+ '(a #t b)
+ (read-string "(a #true b)"))
+
+ (pass-if-equal "#false"
+ '(a #f b)
+ (read-string "(a #false b)"))
+
;; At one time the arg list for "Unknown # object: ~S" didn't make it out
;; of read.c. Check that `format' can be applied to this error.
(pass-if "error message on bad #"