summaryrefslogtreecommitdiff
path: root/test-suite/tests/srfi-1.test
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2008-04-28 18:03:27 +0200
committerLudovic Courtès <ludo@gnu.org>2008-04-28 18:03:27 +0200
commit0fb11ae43259bfa3d07e2da97e644caaff65c477 (patch)
tree66838d241bb68260abb0e92259eb53cfb79071da /test-suite/tests/srfi-1.test
parenta030cb4b16cf9c39fcd8c4ab3b6570d599cd993f (diff)
downloadguile-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.test14
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