diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-06-01 11:17:30 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-06-01 11:17:30 +0000 |
commit | 7673cf6866cbd805a362123fcbffc5dab9a15ed9 (patch) | |
tree | ce07f2011f497823d4a6e1346948c8329b5293d5 | |
parent | 6d63297be2c583f1760f825c0432d615caa6c02b (diff) | |
download | guile-7673cf6866cbd805a362123fcbffc5dab9a15ed9.tar.gz |
* tests/vectors.test: Added.
-rw-r--r-- | test-suite/ChangeLog | 4 | ||||
-rw-r--r-- | test-suite/tests/vectors.test | 31 |
2 files changed, 35 insertions, 0 deletions
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog index f5641de0c..80b5f0cac 100644 --- a/test-suite/ChangeLog +++ b/test-suite/ChangeLog @@ -1,5 +1,9 @@ 2003-06-01 Dirk Herrmann <D.Herrmann@tu-bs.de> + * tests/vectors.test: Added. + +2003-06-01 Dirk Herrmann <D.Herrmann@tu-bs.de> + * tests/guardians.test: Uses module (ice-9 weak-vector). 2003-05-30 Dirk Herrmann <D.Herrmann@tu-bs.de> diff --git a/test-suite/tests/vectors.test b/test-suite/tests/vectors.test new file mode 100644 index 000000000..1407098fa --- /dev/null +++ b/test-suite/tests/vectors.test @@ -0,0 +1,31 @@ +;;;; vectors.test --- test suite for Guile's vector functions -*- scheme -*- +;;;; +;;;; Copyright (C) 2003 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 +;;;; the Free Software Foundation; either version 2, or (at your option) +;;;; any later version. +;;;; +;;;; This program is distributed in the hope that it will be useful, +;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;;; GNU General Public License for more details. +;;;; +;;;; You should have received a copy of the GNU General Public License +;;;; along with this software; see the file COPYING. If not, write to +;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, +;;;; Boston, MA 02111-1307 USA + + +;; FIXME: As soon as guile supports immutable vectors, this has to be +;; replaced with the appropriate error type and message. +(define exception:immutable-vector + (cons 'some-error-type "^trying to modify an immutable vector")) + + +(with-test-prefix "vector-set!" + + (expect-fail-exception "vector constant" + exception:immutable-vector + (vector-set! '#(1 2 3) 0 4))) |