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

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

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

    (string:test:equal
     'string:test:trim-by-proc-a
     (string:trim-by-proc "   abcd efgh   " char-whitespace?)
     "abcd efgh")

    (string:test:equal
     'string:test:trim-by-proc-b
     (string:trim-by-proc "     " char-whitespace?)
     "")

    ))

; eof
