mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +02:00
Code Activity

* lib.scm (exception:missing-expression): New.

Browse source 
* tests/dynamic-scope.test, tests/eval.test,
	tests/r5rs_pitfall.test, tests/srfi-17.test, tests/syncase.test:
	Wrap tests in module (test-suite test-<file-name without .test>),
	following a practice that was used on a couple of files already.

	* tests/dynamic-scope.test (exception:duplicate-binding,
	exception:bad-binding): New.

	* tests/dynamic-scope.test, tests/srfi-17.test, tests/syntax.test:
	Execute syntactically wrong tests using eval.  With the upcoming
	new memoizer this is necessary in order to postpone the syntax
	check to the actual evaluation of the syntactically wrong form.

	* tests/syntax.test: Added some test cases and modified one test
	case.
This commit is contained in:
Dirk Herrmann 2003-10-07 22:00:05 +00:00
parent da0e6c2baf
commit d6e04e7c4a
8 changed files with 218 additions and 97 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/lib.scm
View file

@ -22,6 +22,7 @@
:export (
;; Exceptions which are commonly being tested for.
exception:missing-expression
exception:out-of-range exception:unbound-var
exception:wrong-num-args exception:wrong-type-arg
@ -32,14 +33,14 @@
;; Naming groups of tests in a regular fashion.
with-test-prefix with-test-prefix* current-test-prefix
format-test-name
;; Reporting results in various ways.
register-reporter unregister-reporter reporter-registered?
make-count-reporter print-counts
make-log-reporter
full-reporter
user-reporter
format-test-name))
user-reporter))
;;;; If you're using Emacs's Scheme mode:
@ -232,6 +233,8 @@
;;;;
;;; Define some exceptions which are commonly being tested for.
(define exception:missing-expression
(cons 'misc-error "^missing or extra expression"))
(define exception:out-of-range
(cons 'out-of-range "^Argument .*out of range"))
(define exception:unbound-var