; -*- Scheme -*-
;
; $Id: pathnamet15.scm,v 1.1 1998/03/16 07:59:18 foner Exp $

;+doc
; procedure: pathname:test:equal
; arguments: test-name test-result expected-result
; signature: forall a => symbol x a x a -> unspecified
;-doc

(define pathname:test:equal
  (lambda (test-name test-result expected-result)
    (if (not (equal? test-result expected-result))
	(error test-name "failed test"))))

; eof
