← Back to branch summary

~peter-pearse/ubuntu/natty/guile-1.8/prop001

« back to all changes in this revision

Viewing changes to test-suite/tests/reader.test

  • Committer: Bazaar Package Importer
  • Author(s): Rob Browning
  • Date: 2008-05-10 12:18:50 UTC
  • mfrom: (1.2.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20080510121850-mwi7tobbfkat03vr
Tags: 1.8.5+1-1
http://bugs.debian.org/462384
http://bugs.debian.org/466778
* Incorporate new upstream stable release.

* Fix gcc 4.3 compilation problems (fixed upstream now).  Thanks to
  Alexander Schmehl <tolimar@debian.org> for the previous, related
  1.8.4+1-2.1 NMU, and to Maximiliano Curia and Daniel Schepler for the
  original patch. (closes: #462384, #466778)

Show diffs side-by-side

added added

removed removed

Lines of Context:
test-suite/tests/reader.test
1
1
;;;; reader.test --- Exercise the reader.               -*- Scheme -*-
2
2
;;;;
3
 
;;;; Copyright (C) 1999, 2001, 2002, 2003, 2007 Free Software Foundation, Inc.
 
3
;;;; Copyright (C) 1999, 2001, 2002, 2003, 2007, 2008 Free Software Foundation, Inc.
4
4
;;;; Jim Blandy <jimb@red-bean.com>
5
5
;;;;
6
6
;;;; This library is free software; you can redistribute it and/or
149
149
         (with-read-options '(keywords prefix case-insensitive)
150
150
           (lambda ()
151
151
             (read-string ":KeyWord")))))
 
152
  (pass-if "prefix non-keywords"
 
153
    (symbol? (with-read-options '(keywords prefix)
 
154
               (lambda ()
 
155
                 (read-string "srfi88-keyword:")))))
 
156
  (pass-if "postfix keywords"
 
157
    (eq? #:keyword
 
158
         (with-read-options '(keywords postfix)
 
159
           (lambda ()
 
160
             (read-string "keyword:")))))
 
161
  (pass-if "`:' is not a postfix keyword (per SRFI-88)"
 
162
    (eq? ':
 
163
         (with-read-options '(keywords postfix)
 
164
           (lambda ()
 
165
             (read-string ":")))))
152
166
  (pass-if "no positions"
153
167
    (let ((sexp (with-read-options '()
154
168
                  (lambda ()