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

(require 'string:test:equal)
(require 'string:trim-right)
(require 'char-set:whitespace)

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

    (string:test:equal
     'string:trim-right-a
     (string:trim-right "Betelgeuse   ")
     "Betelgeuse")

    (string:test:equal
     'string:trim-right-b
     (string:trim-right "Betelgeuse   " char-whitespace?)
     "Betelgeuse")

    (string:test:equal
     'string:trim-right-c
     (string:trim-right "Betelgeuse   " char-set:whitespace)
     "Betelgeuse")

    (string:test:equal
     'string:trim-right-d
     (string:trim-right "" char-set:whitespace)
     "")

    ))

; eof
