diff options
| author | Mark H Weaver <mhw@netris.org> | 2013-09-12 18:14:54 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2013-09-12 18:14:54 -0400 |
| commit | 361553b49d89b2668cff967401d602ab930a26c4 (patch) | |
| tree | 55e72090c2380efa8ad1351d31da2a7664c0f24c | |
| parent | 89ffbb1c2e8d06ec35b8c994e65b9bb7ad29e52a (diff) | |
| download | guile-361553b49d89b2668cff967401d602ab930a26c4.tar.gz | |
Adapt srfi-9.test to error reporting improvements; update copyright dates.
* module/srfi/srfi-9.scm: Add 2013 copyright date.
* test-suite/tests/srfi-9.test: Adapt to recent error reporting
improvements to procedures defined by 'define-tagged-inlinable'.
| -rw-r--r-- | module/srfi/srfi-9.scm | 3 | ||||
| -rw-r--r-- | test-suite/tests/srfi-9.test | 10 |
2 files changed, 9 insertions, 4 deletions
diff --git a/module/srfi/srfi-9.scm b/module/srfi/srfi-9.scm index 2fc892865..324fe9cee 100644 --- a/module/srfi/srfi-9.scm +++ b/module/srfi/srfi-9.scm @@ -1,6 +1,7 @@ ;;; srfi-9.scm --- define-record-type -;; Copyright (C) 2001, 2002, 2006, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2006, 2009, 2010, 2011, 2012, +;; 2013 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 diff --git a/test-suite/tests/srfi-9.test b/test-suite/tests/srfi-9.test index e951fc67f..e1812bfbf 100644 --- a/test-suite/tests/srfi-9.test +++ b/test-suite/tests/srfi-9.test @@ -1,7 +1,8 @@ ;;;; srfi-9.test --- Test suite for Guile's SRFI-9 functions. -*- scheme -*- ;;;; Martin Grabmueller, 2001-05-10 ;;;; -;;;; Copyright (C) 2001, 2006, 2007, 2010, 2011, 2012 Free Software Foundation, Inc. +;;;; Copyright (C) 2001, 2006, 2007, 2010, 2011, 2012, +;;;; 2013 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 @@ -41,15 +42,18 @@ (define b (make-bar 123 456)) +(define exception:syntax-error-wrong-num-args + (cons 'syntax-error "Wrong number of arguments")) + (with-test-prefix "constructor" ;; Constructors are defined using `define-integrable', meaning that direct ;; calls as in `(make-foo)' lead to a compile-time psyntax error, hence the ;; distinction below. - (pass-if-exception "foo 0 args (inline)" exception:syntax-pattern-unmatched + (pass-if-exception "foo 0 args (inline)" exception:syntax-error-wrong-num-args (compile '(make-foo) #:env (current-module))) - (pass-if-exception "foo 2 args (inline)" exception:syntax-pattern-unmatched + (pass-if-exception "foo 2 args (inline)" exception:syntax-error-wrong-num-args (compile '(make-foo 1 2) #:env (current-module))) (pass-if-exception "foo 0 args" exception:wrong-num-args |