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

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

(define substring:test:upcase
  (lambda args

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

    (string:test:equal
      'substring:upcase-a
      (substring:upcase "occlUDed cASEmenTs" 0 18)
      "OCCLUDED CASEMENTS")

    (string:test:equal
     'substring:upcase-b 
     (substring:upcase "occlUDed cASEmenTs" 5 18)
     "occlUDED CASEMENTS")

    (string:test:equal
     'substring:upcase-c
     (substring:upcase "occlUDed cASEmenTs" 5 15)
     "occlUDED CASEMEnTs")

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

  ))

;; eof
