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

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

(define substring:test:downcase!
  (lambda args

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

    (let ((a "occlUDed cASEmenTs"))
      (substring:downcase! a 0 18)
      (string:test:equal 'substring:downcase!-a a "occluded casements"))

    (let ((a "occlUDed cASEmenTs"))
      (substring:downcase! a 5 18)
      (string:test:equal 'substring:downcase!-b a "occlUded casements"))

    (let ((a "occlUDed cASEmenTs"))
      (substring:downcase! a 5 15)
      (string:test:equal 'substring:downcase!-c a "occlUded casemenTs"))

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

    ))

;; eof
