diff options
author | Mark H Weaver <mhw@netris.org> | 2014-01-14 03:18:34 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2014-01-14 03:18:34 -0500 |
commit | cb8aaef4d08989aea2b7f088d298f71a03ecc1b2 (patch) | |
tree | 4db2351d09ed63760f55c50ec4cc61a432fb3448 /test-suite/tests | |
parent | b958141cdb081ceb16ca5828abda71f772fe0c57 (diff) | |
parent | 0fc548287e154349f3365976e6a5854736b651ed (diff) | |
download | guile-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.test | 18 |
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 #" |