Tests added

2026-08-26 22:20:48 +02:00
parent 8aec679a48
commit 9e9003ad9b
1 changed files with 37 additions and 0 deletions
@@ -0,0 +1,37 @@
+#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 %")