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

(require 'string:test:equal)
(require 'substring:center!)

(define substring:test:center!
  (lambda args

    (if (not (null? args)) (display "Testing substring:center! ... "))

    (let ((r "pqrstuv"))
      (substring:center! "abc" 0 3 r 0 7)
      (string:test:equal 'substring:test:center!-a r "pqabcuv"))

    (if (not (null? args)) (begin (display "done") (newline)))

    ))

;; eof
