From 3e8215e5578c9d93cbaf619e9a070d6731876cec Mon Sep 17 00:00:00 2001 From: "carpentry-heartbeat[bot]" Date: Fri, 22 May 2026 12:07:05 +0200 Subject: [PATCH] test: add coverage for append-double, append-bytes, and copy --- test/strbuf.carp | 29 ++++++++++++++++++++++++++++- 1 file changed, 28 insertions(+), 1 deletion(-) diff --git a/test/strbuf.carp b/test/strbuf.carp index f014d4e..9cb7644 100644 --- a/test/strbuf.carp +++ b/test/strbuf.carp @@ -82,4 +82,31 @@ (let-do [sb (StringBuf.create)] (for [i 0 1000] (StringBuf.append-char &sb \x)) (let-do [l (StringBuf.length &sb)] (StringBuf.delete sb) l)) - "1000 char appends")) + "1000 char appends") + + (assert-equal test + "pi=3.14" + &(let-do [sb (StringBuf.create)] + (StringBuf.append-str &sb "pi=") + (StringBuf.append-double &sb 3.14) + (let-do [s (StringBuf.to-string &sb)] (StringBuf.delete sb) s)) + "append-double") + + (assert-equal test + "abc" + &(let-do [sb (StringBuf.create) + bytes [(Byte.from-int 97) (Byte.from-int 98) (Byte.from-int 99)]] + (StringBuf.append-bytes &sb &bytes) + (let-do [s (StringBuf.to-string &sb)] (StringBuf.delete sb) s)) + "append-bytes") + + (assert-equal test + "hello" + &(let-do [sb (StringBuf.create)] + (StringBuf.append-str &sb "hello") + (let-do [sb2 (StringBuf.copy &sb) + s (StringBuf.to-string &sb2)] + (StringBuf.delete sb) + (StringBuf.delete sb2) + s)) + "copy produces independent clone"))