(import (scheme base)
        (only (csc strings) str-quote)
        (only (csc testing) assert-equal test)
        (csc format))


(test sprintf-single-string
  (assert-equal "test-string" (sprintf "test-string")))


(test sprintf-list
  (assert-equal "(1 2 3)" (sprintf "{}" '(1 2 3))))


(test sprintf-complex
  (assert-equal "this (1 2 3) is 1 a bbb test" (sprintf "this {} is {} a {} test" '(1 2 3) 1 "bbb")))


(test sprintf-escape-open
  (assert-equal "{" (sprintf "{{")))


(test sprintf-escape-close
  (assert-equal "}" (sprintf "}}")))