#lang racket/base

(require rackunit
         racket-sprintf)

(check-equal? (sprintf "%s" "Abc")
              "Abc")

(check-equal? (sprintf "%10s" "Abc")
              "       Abc")

(check-equal? (sprintf "%-10s" "Abc")
              "Abc       ")

(check-equal? (sprintf "%.2s" "Abc")
              "Ab")

(check-equal? (sprintf "%10.5s" "Abcdefgh")
              "     Abcde")

(check-equal? (sprintf "%-10.5s" "Abcdefgh")
              "Abcde     ")

(check-equal? (sprintf "%05d" 42)
              "00042")

(check-equal? (sprintf "%-5d" 42)
              "42   ")

(check-equal? (sprintf* "%s %d" (list "answer" 42))
              "answer 42")

(check-equal? (sprintf "100%%")
              "100%")

(check-equal? (sprintf "%% %s %%" "ok")
              "% ok %")