;;; ;;; Time-stamp: <06/03/11 12:13:11 noel> ;;; ;;; Copyright (C) 2005 by Noel Welsh. ;;; ;;; This library is free software; you can redistribute it ;;; and/or modify it under the terms of the GNU Lesser ;;; General Public License as published by the Free Software ;;; Foundation; either version 2.1 of the License, or (at ;;; your option) any later version. ;;; This library 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 Lesser General Public ;;; License for more details. ;;; You should have received a copy of the GNU Lesser ;;; General Public License along with this library; if not, ;;; write to the Free Software Foundation, Inc., 59 Temple ;;; Place, Suite 330, Boston, MA 02111-1307 USA ;;; Author: Noel Welsh <noelwelsh@yahoo.com> ;; ;; ;; Commentary: ;; struct test : () (define-struct test ()) ;; struct (schemeunit-test-case test) : string thunk (define-struct (schemeunit-test-case test) (name action)) ;; struct (schemeunit-test-suite test) : string (list-of test) thunk thunk (define-struct (schemeunit-test-suite test) (name tests before after)) ;; struct exn:test exn : () ;; ;; The exception throw by test failures (define-struct (exn:test exn) ()) ;; struct (exn:test:check struct:exn:test) : (list-of check-info) ;; ;; The exception thrown to indicate a check has failed (define-struct (exn:test:check exn:test) (stack)) ;; struct (exn:test:check:internal exn:test:check) : () ;; ;; Exception thrown to indicate an internal failure in an ;; check, distinguished from a failure in user code. (define-struct (exn:test:check:internal exn:test:check) ()) ;; struct test-result : string (define-struct test-result (test-case-name)) ;; struct (test-failure test-result) : exn:test (define-struct (test-failure test-result) (result)) ;; struct (test-error test-result) : any (define-struct (test-error test-result) (result)) ;; struct (test-success test-result) : any (define-struct (test-success test-result) (result))