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

(require 'string:icon:center)

(define string:test:icon:center
  (lambda ()

    (string:test:equal
      'string:test:icon:center-a
      (string:icon:center "Detroit" 10 "+")
      "+Detroit++")

    (string:test:equal
      'string:test:icon:center-b
      (string:icon:center "Detroit" 20 "+*+")
      "+*++*+Detroit+*++*++")

    (string:test:equal
      'string:test:icon:center-c
      (string:icon:center "Detroit" 20)
      "      Detroit       ")

    (string:test:equal
      'string:test:icon:center-d
      (string:icon:center "Detroit" 6 "+*+")
      "Detroi")

    ))

; eof



