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

(require 'string:pad-left)
(require 'string:test:equal)

(define string:test:pad-left
  (lambda ()

    (string:test:equal
     'string:pad-left-a
     (string:pad-left "Detroit" 10 "+")
     "+++Detroit")

    (string:test:equal
     'string:pad-left-b
     (string:pad-left "Detroit" 20 "+*+")
     "+*++*++*++*++Detroit")

    (string:test:equal
     'string:pad-left-c
     (string:pad-left "Detroit" 4 "+*+")
     "roit")

    ))

; eof
