38 lines
773 B
Racket
38 lines
773 B
Racket
#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 %")
|