From 9e9003ad9ba9872a33519199f2d09954f6e9e8d8 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Wed, 26 Aug 2026 22:20:48 +0200
Subject: [PATCH] Tests added

---
 tests/sprintf.rkt | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 tests/sprintf.rkt

diff --git a/tests/sprintf.rkt b/tests/sprintf.rkt
new file mode 100644
index 0000000..e49f641
--- /dev/null
+++ b/tests/sprintf.rkt
@@ -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 %")