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

(require 'string:test:equal)
(require 'string:trim-right-by-proc)

(define string:test:trim-right-by-proc
  (lambda ()

    (string:test:equal
     'string:test:trim-right-by-proc-a
     (string:trim-right-by-proc "ABCDefghIJKLmnop" char-lower-case?)
     "ABCDefghIJKL")

    (string:test:equal
     'string:test:trim-right-by-proc-b
     (string:trim-right-by-proc "" char-lower-case?)
     "")

    (string:test:equal
     'string:test:trim-right-by-proc-c
     (string:trim-right-by-proc "ABCDefghIJKLmnop" char-whitespace?)
     "ABCDefghIJKLmnop")

    ))
