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

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


(define substring:test:capitalize!
  (lambda ()

    (let ((s "occlUDed cASEmenTs"))
      (substring:capitalize! s 2 11)
      (string:test:equal 'substring:capitalize! s "ocCluded CaSEmenTs"))

    ))

(define string:test:capitalize!
  (lambda ()

    (let ((s "occlUDed cASEmenTs"))
      (string:capitalize! s)
      (string:test:equal 'string:capitalize! s "Occluded Casements"))

    ))

; eof
