amr/cl-tty
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: draw-border renders titles in modern and simple backends (title, title-align respected)

Browse Source
This commit is contained in:
Hermes Agent
2026-05-12 13:46:42 +00:00
parent b21daa99b8
commit bb1717a43d
3 changed files with 64 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
backend/tests.lisp
View File

@@ -46,7 +46,7 @@
(draw-border b 0 0 5 3 :style :single)
(shutdown-backend b)
(let ((out (get-output-stream-string s)))
(is (search "-----" out) "top edge should have 5 dashes")
(is (search "+---+" out) "top edge should have +---+")
(is (search "| |" out) "middle row should have pipe sides"))))
(test simple-backend-draw-rounded
@@ -57,7 +57,7 @@
(shutdown-backend b)
(let ((out (get-output-stream-string s)))
;; Rounded falls back to ASCII — identical output to single
(is (search "-----" out) "rounded style produces same dashes as single"))))
(is (search "+---+" out) "rounded style produces same dashes as single"))))
(test simple-backend-draw-link
"simple-backend renders link as plain text"