Changes from arch/CVS synchronization

test-suite/ChangeLog

@@ -1,3 +1,10 @@
+2006-06-13  Ludovic Courtès  <ludovic.courtes@laas.fr>
+
+	* Makefile.am (SCM_TESTS): Added `tests/structs.test'.
+	* tests/structs.test: New file.
+	* lib.scm (exception:struct-set!-denied): New.
+	(exception:miscellaneous-error): New.
+
 2006-05-30  Marius Vollmer  <mvo@zagadka.de>
 
 	* tests/unif.test ("vector equal? one-dimensional array"): New.

test-suite/Makefile.am

@@ -79,6 +79,7 @@ SCM_TESTS = tests/alist.test			\
 	    tests/srfi-4.test			\
 	    tests/srfi-9.test			\
 	    tests/strings.test			\
+	    tests/structs.test			\
 	    tests/symbols.test			\
 	    tests/syncase.test			\
 	    tests/syntax.test			\

test-suite/lib.scm

@@ -28,6 +28,8 @@
  exception:used-before-defined
  exception:wrong-num-args exception:wrong-type-arg
  exception:numerical-overflow
+ exception:struct-set!-denied
+ exception:miscellaneous-error
 
  ;; Reporting passes and failures.
  run-test
@@ -252,6 +254,10 @@
   (cons 'wrong-type-arg "^Wrong type"))
 (define exception:numerical-overflow
   (cons 'numerical-overflow "^Numerical overflow"))
+(define exception:struct-set!-denied
+  (cons 'misc-error "^set! denied for field"))
+(define exception:miscellaneous-error
+  (cons 'misc-error "^.*"))
 
 ;;; Display all parameters to the default output port, followed by a newline.
 (define (display-line . objs)