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

(require 'string:test:equal)
(require 'substring:center-with-padding!)

(define substring:test:center-with-padding!
  (lambda ()

    (let ((r "pqrstuv"))
      (substring:center-with-padding! "abc" 0 3 "bevan" 0 5 r 0 7)
      (string:test:equal 'substring:test:center-with-padding!-a r "beabcan"))

    ))

; eof
