#lang racket

(require rackunit/text-ui)

(require rackunit "../string-utils.rkt")

(define test-string
  (test-suite 
   "test-string"

   (test-case 
    "test-string"

    (check-equal? (string-fill "aa" #\c 10) "ccccccccaa")
    (check-equal? (string-fill "aa" #\c 1) "aa")
    (check-equal? (string-fill "1" #\0 2) "01")
    (check-equal? (string-fill "aa" #\c 10 #:direction 'right) "aacccccccc")
    (check-equal? (string-fill "aa" #\c 1 #:direction 'right) "aa")
    (check-equal? (string-fill "1" #\0 2 #:direction 'right) "10"))

   ))

(run-tests test-string)