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

(require 'string:reverse)
(require 'string:test:equal)

(define string:test:reverse
  (lambda ()

    (string:test:equal
     'string:reverse-a
     (string:reverse "string")
     "gnirts")

    (string:test:equal
     'string:reverse-a
     (string:reverse "")
     "")
    ))

; eof
