/[guile]/guile/guile-core/test-suite/lib.scm
ViewVC logotype

Diff of /guile/guile-core/test-suite/lib.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by dirk, Fri May 30 10:35:05 2003 UTC revision 1.23 by dirk, Tue Oct 7 22:00:05 2003 UTC
# Line 22  Line 22 
22    :export (    :export (
23    
24   ;; Exceptions which are commonly being tested for.   ;; Exceptions which are commonly being tested for.
25     exception:missing-expression
26   exception:out-of-range exception:unbound-var   exception:out-of-range exception:unbound-var
27   exception:wrong-num-args exception:wrong-type-arg   exception:wrong-num-args exception:wrong-type-arg
28    
# Line 32  Line 33 
33    
34   ;; Naming groups of tests in a regular fashion.   ;; Naming groups of tests in a regular fashion.
35   with-test-prefix with-test-prefix* current-test-prefix   with-test-prefix with-test-prefix* current-test-prefix
36     format-test-name
37    
38   ;; Reporting results in various ways.   ;; Reporting results in various ways.
39   register-reporter unregister-reporter reporter-registered?   register-reporter unregister-reporter reporter-registered?
40   make-count-reporter print-counts   make-count-reporter print-counts
41   make-log-reporter   make-log-reporter
42   full-reporter   full-reporter
43   user-reporter   user-reporter))
  format-test-name))  
44    
45    
46  ;;;; If you're using Emacs's Scheme mode:  ;;;; If you're using Emacs's Scheme mode:
# Line 232  Line 233 
233  ;;;;  ;;;;
234    
235  ;;; Define some exceptions which are commonly being tested for.  ;;; Define some exceptions which are commonly being tested for.
236    (define exception:missing-expression
237      (cons 'misc-error "^missing or extra expression"))
238  (define exception:out-of-range  (define exception:out-of-range
239    (cons 'out-of-range "^Argument .*out of range"))    (cons 'out-of-range "^Argument .*out of range"))
240  (define exception:unbound-var  (define exception:unbound-var

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26