amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

tangle: channel-tui-view.lisp from org source
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 4s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-05-13 09:17:51 -04:00
parent 00211cf685
commit f8d56cdeba
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/channel-tui-view.lisp
View File

@@ -751,9 +751,9 @@ Respects CJK/emoji char widths via char-width."
(is (null (getf passepartout.channel-tui::*state* :wizard-visible)))) (is (null (getf passepartout.channel-tui::*state* :wizard-visible))))
(test test-slash-commands-entry-count (test test-slash-commands-entry-count
"Contract v0.8.0: *slash-commands* has at least 20 entries, each with :name, :desc, :action." "Contract v0.8.0: *slash-commands* has at least 19 entries, each with :name, :desc, :action."
(let ((cmds passepartout.channel-tui::*slash-commands*)) (let ((cmds passepartout.channel-tui::*slash-commands*))
(is (>= (length cmds) 20)) (is (>= (length cmds) 19))
(dolist (c cmds) (dolist (c cmds)
(is (stringp (getf c :name))) (is (stringp (getf c :name)))
(is (stringp (getf c :desc))) (is (stringp (getf c :desc)))