review fixes: in-suite, version bump, default children method
Fixes from subagent review: - render-tests.lisp: added (in-suite box-suite) — tests were registered to default suite, never executed by runner - dirty-tests.lisp: same fix - cl-tui.asd: version 0.2.0 → 0.3.0 - render.lisp: component-children default method (c t) nil for protocol completeness (component-parent already had this)
This commit is contained in:
@@ -2,7 +2,7 @@
|
|||||||
(asdf:defsystem :cl-tui
|
(asdf:defsystem :cl-tui
|
||||||
:description "Reusable Common Lisp Terminal UI Framework"
|
:description "Reusable Common Lisp Terminal UI Framework"
|
||||||
:author "Amr Gharbeia"
|
:author "Amr Gharbeia"
|
||||||
:version "0.2.0"
|
:version "0.3.0"
|
||||||
:license "TBD"
|
:license "TBD"
|
||||||
:depends-on (:fiveam)
|
:depends-on (:fiveam)
|
||||||
:components
|
:components
|
||||||
|
|||||||
@@ -1,5 +1,6 @@
|
|||||||
;; Dirty tracking tests are in box-tests.lisp (same test suite)
|
;; Dirty tracking tests are in box-tests.lisp (same test suite)
|
||||||
(in-package :cl-tui-box-test)
|
(in-package :cl-tui-box-test)
|
||||||
|
(in-suite box-suite)
|
||||||
|
|
||||||
(test dirty-mixin-default-is-dirty
|
(test dirty-mixin-default-is-dirty
|
||||||
"A dirty-mixin starts as dirty"
|
"A dirty-mixin starts as dirty"
|
||||||
|
|||||||
@@ -1,4 +1,5 @@
|
|||||||
(in-package :cl-tui-box-test)
|
(in-package :cl-tui-box-test)
|
||||||
|
(in-suite box-suite)
|
||||||
|
|
||||||
(defun make-capturing-backend ()
|
(defun make-capturing-backend ()
|
||||||
(let* ((s (make-string-output-stream))
|
(let* ((s (make-string-output-stream))
|
||||||
|
|||||||
@@ -9,8 +9,7 @@
|
|||||||
|
|
||||||
(defgeneric component-children (component)
|
(defgeneric component-children (component)
|
||||||
(:documentation "Return the children of COMPONENT, or nil.")
|
(:documentation "Return the children of COMPONENT, or nil.")
|
||||||
(:method ((bx box)) nil)
|
(:method ((c t)) nil))
|
||||||
(:method ((tx text)) nil))
|
|
||||||
|
|
||||||
(defgeneric component-parent (component)
|
(defgeneric component-parent (component)
|
||||||
(:documentation "Return the parent of COMPONENT, or nil.")
|
(:documentation "Return the parent of COMPONENT, or nil.")
|
||||||
|
|||||||
Reference in New Issue
Block a user