diff options
author | Ludovic Courtès <ludo@gnu.org> | 2008-04-28 18:03:27 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-04-28 18:03:27 +0200 |
commit | 0fb11ae43259bfa3d07e2da97e644caaff65c477 (patch) | |
tree | 66838d241bb68260abb0e92259eb53cfb79071da /test-suite/tests/srfi-1.test | |
parent | a030cb4b16cf9c39fcd8c4ab3b6570d599cd993f (diff) | |
download | guile-0fb11ae43259bfa3d07e2da97e644caaff65c477.tar.gz |
Fix type-checking of SRFI-1 `partition'.
Diffstat (limited to 'test-suite/tests/srfi-1.test')
-rw-r--r-- | test-suite/tests/srfi-1.test | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/test-suite/tests/srfi-1.test b/test-suite/tests/srfi-1.test index 22c4a9a68..4f2838744 100644 --- a/test-suite/tests/srfi-1.test +++ b/test-suite/tests/srfi-1.test @@ -1,6 +1,6 @@ ;;;; srfi-1.test --- Test suite for Guile's SRFI-1 functions. -*- scheme -*- ;;;; -;;;; Copyright 2003, 2004, 2005, 2006 Free Software Foundation, Inc. +;;;; Copyright 2003, 2004, 2005, 2006, 2008 Free Software Foundation, Inc. ;;;; ;;;; This program is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -2068,7 +2068,11 @@ (make-list 10000 1))) (lambda (even odd) (and (= (length odd) 10000) - (= (length even) 0)))))) + (= (length even) 0))))) + + (pass-if-exception "with improper list" + exception:wrong-type-arg + (partition symbol? '(a b . c)))) ;; ;; partition! @@ -2111,7 +2115,11 @@ (make-list 10000 1))) (lambda (even odd) (and (= (length odd) 10000) - (= (length even) 0)))))) + (= (length even) 0))))) + + (pass-if-exception "with improper list" + exception:wrong-type-arg + (partition! symbol? (cons* 'a 'b 'c)))) ;; ;; reduce |