summaryrefslogtreecommitdiff
path: root/test-suite/tests/eval.test
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-05-06 00:18:52 +0200
committerAndy Wingo <wingo@pobox.com>2011-05-06 00:18:52 +0200
commit5eb75b5de08ea8eb86a4760e1454460b61b4bccc (patch)
tree55efc5ec0ed5bf42cfafd7249637d96cb4818ef3 /test-suite/tests/eval.test
parent891a1851a1e0e47560cf99cf76e9478d77e1a7db (diff)
parenta2a6c0e319b5c146c484cb1fe8ffc9b14b9a9876 (diff)
downloadguile-5eb75b5de08ea8eb86a4760e1454460b61b4bccc.tar.gz
Merge remote-tracking branch 'origin/stable-2.0'
Diffstat (limited to 'test-suite/tests/eval.test')
-rw-r--r--test-suite/tests/eval.test15
1 files changed, 10 insertions, 5 deletions
diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test
index 7eb19ebec..9d6bc6d94 100644
--- a/test-suite/tests/eval.test
+++ b/test-suite/tests/eval.test
@@ -1,5 +1,5 @@
;;;; eval.test --- tests guile's evaluator -*- scheme -*-
-;;;; Copyright (C) 2000, 2001, 2006, 2007, 2009, 2010 Free Software Foundation, Inc.
+;;;; Copyright (C) 2000, 2001, 2006, 2007, 2009, 2010, 2011 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
@@ -28,6 +28,11 @@
(define exception:failed-match
(cons 'syntax-error "failed to match any pattern"))
+(define exception:not-a-list
+ (cons 'wrong-type-arg "Not a list"))
+
+(define exception:wrong-length
+ (cons 'wrong-type-arg "wrong length"))
;;;
;;; miscellaneous
@@ -192,19 +197,19 @@
(with-test-prefix "different length lists"
(pass-if-exception "first list empty"
- exception:out-of-range
+ exception:wrong-length
(map + '() '(1)))
(pass-if-exception "second list empty"
- exception:out-of-range
+ exception:wrong-length
(map + '(1) '()))
(pass-if-exception "first list shorter"
- exception:out-of-range
+ exception:wrong-length
(map + '(1) '(2 3)))
(pass-if-exception "second list shorter"
- exception:out-of-range
+ exception:wrong-length
(map + '(1 2) '(3)))
)))