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

(require 'string:test:equal)
(require 'string:split-by-whitespace)

(define string:test:split-by-whitespace
  (lambda ()

    (string:test:equal
     'string:split-by-whitespace-a
     (string:split-by-whitespace " abc d e f  ")
     '("abc" "d" "e" "f"))

    (string:test:equal
     'string:split-by-whitespace-b
     (string:split-by-whitespace "")
     '())

    (string:test:equal 
     'string:split-by-whitespace-c
     (string:split-by-whitespace "a")
     '("a"))

    ))

; eof
