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

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

(define string:test:trim
  (lambda args

    (if (not (null? args)) (display "Testing string:trim ... "))

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

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

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

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

    ))

;; eof
