summaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-04-29 11:41:46 +0200
committerAndy Wingo <wingo@pobox.com>2021-04-29 21:50:12 +0200
commit8847aaec41223cff191ee6d27d6d8e343e99d8ae (patch)
tree2f293b48660e9d606b1a6cad73e1109ca15e9ac4 /test-suite
parent7da831af18d1de63b5c98339241473271dc993d2 (diff)
downloadguile-8847aaec41223cff191ee6d27d6d8e343e99d8ae.tar.gz
bug#48096: [3.0.6] ‘syntax-error’ exceptions include vectors instead of source location properties
Hi! In 3.0.6, a slight incompatibility crept in: ‘syntax-error’ exceptions include vectors like #("example.scm" 1 2) instead of good’ol source property alists. Here is a test case that reproduces the problem:
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/tests/syntax.test14
1 files changed, 13 insertions, 1 deletions
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 10bc7b080..c60a453aa 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -1,7 +1,7 @@
;;;; syntax.test --- test suite for Guile's syntactic forms -*- scheme -*-
;;;;
;;;; Copyright (C) 2001, 2003, 2004, 2005, 2006, 2009, 2010,
-;;;; 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
+;;;; 2011, 2012, 2013, 2014, 2021 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
@@ -112,6 +112,18 @@
(with-test-prefix "Bad argument list"
+ (pass-if-equal "syntax-error location"
+ '((line . 1) (column . 2) (filename . "example.scm"))
+ (catch 'syntax-error
+ (lambda ()
+ (eval (call-with-input-string "\n (let foo bar)"
+ (lambda (port)
+ (set-port-filename! port "example.scm")
+ (read port)))
+ (interaction-environment)))
+ (lambda (key proc message properties form subform . rest)
+ properties)))
+
(pass-if-syntax-error "improper argument list of length 1"
exception:generic-syncase-error
(eval '(let ((foo (lambda (x y) #t)))