; -*- Scheme -*-
;
; $Id: stringt00.scm,v 1.1 1998/03/16 08:00:04 foner Exp $

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

