diff options
author | Andy Wingo <wingo@pobox.com> | 2011-05-06 00:18:52 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-05-06 00:18:52 +0200 |
commit | 5eb75b5de08ea8eb86a4760e1454460b61b4bccc (patch) | |
tree | 55efc5ec0ed5bf42cfafd7249637d96cb4818ef3 /test-suite/tests/eval.test | |
parent | 891a1851a1e0e47560cf99cf76e9478d77e1a7db (diff) | |
parent | a2a6c0e319b5c146c484cb1fe8ffc9b14b9a9876 (diff) | |
download | guile-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.test | 15 |
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))) ))) |