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

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

(define substring:test:downcase
  (lambda ()

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

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

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

;; eof
