092ea9d631
Add a public interactive example covering Grid layout, layered canvas and panel backgrounds, Context-derived themes, reactive state, in-memory Data Controller updates, keyed rows, navigation, and event dispatch. Defer one viewport sync after display so fullscreen frames render the actual visible dimensions.
99 lines
4.8 KiB
EmacsLisp
99 lines
4.8 KiB
EmacsLisp
;;; etaf-playground-tests.el --- ETAF example tests -*- lexical-binding: t; -*-
|
|
|
|
(require 'ert)
|
|
(require 'etaf-playground)
|
|
|
|
(ert-deftest etaf-playground-mounts-and-dispatches-core-example ()
|
|
"Mount the public playground and update its retained counter."
|
|
(let ((buffer-name " *etaf-playground-test*"))
|
|
(unwind-protect
|
|
(progn
|
|
(etaf-mount buffer-name (etaf-playground-view))
|
|
(with-current-buffer buffer-name
|
|
(should (string-match-p "ETAF Playground" (buffer-string)))
|
|
(should (string-match-p "Count: 0" (buffer-string))))
|
|
(etaf-dispatch-event (etaf-runtime-for-buffer buffer-name)
|
|
'increment 'press)
|
|
(with-current-buffer buffer-name
|
|
(should (string-match-p "Count: 1" (buffer-string)))))
|
|
(when-let ((runtime (etaf-runtime-for-buffer buffer-name)))
|
|
(etaf-unmount runtime))
|
|
(when-let ((buffer (get-buffer buffer-name)))
|
|
(kill-buffer buffer)))))
|
|
|
|
(ert-deftest etaf-playground-ui-entry-keeps-catalog-optional ()
|
|
"Load the catalog only through the optional UI entry point."
|
|
(require 'etaf-ui)
|
|
(let ((buffer-name " *etaf-playground-ui-test*"))
|
|
(unwind-protect
|
|
(progn
|
|
(etaf-mount buffer-name (etaf-playground-ui-view))
|
|
(with-current-buffer buffer-name
|
|
(should (string-match-p "Official Components" (buffer-string)))
|
|
(should (string-match-p "Controlled checkbox" (buffer-string)))))
|
|
(when-let ((runtime (etaf-runtime-for-buffer buffer-name)))
|
|
(etaf-unmount runtime))
|
|
(when-let ((buffer (get-buffer buffer-name)))
|
|
(kill-buffer buffer)))))
|
|
|
|
(ert-deftest etaf-playground-showcase-covers-public-interaction-path ()
|
|
"Mount the Showcase and exercise its navigation, data, and theme events."
|
|
(let ((buffer-name " *etaf-playground-showcase-test*"))
|
|
(unwind-protect
|
|
(progn
|
|
(etaf-mount buffer-name (etaf-playground-showcase-view))
|
|
(with-current-buffer buffer-name
|
|
(should (string-match-p "ETAF Showcase" (buffer-string)))
|
|
(should (string-match-p "VISIBLE WORK ITEMS" (buffer-string)))
|
|
(should (string-match-p "4" (buffer-string))))
|
|
(let ((runtime (etaf-runtime-for-buffer buffer-name)))
|
|
(etaf-dispatch-event runtime 'showcase-open-work-items 'press)
|
|
(with-current-buffer buffer-name
|
|
(should (string-match-p "Work items" (buffer-string)))
|
|
(should (string-match-p "T-101" (buffer-string))))
|
|
(etaf-dispatch-event runtime 'showcase-task-T-101 'press)
|
|
(with-current-buffer buffer-name
|
|
(should (string-match-p "Selected T-101" (buffer-string))))
|
|
(etaf-dispatch-event runtime 'showcase-add-task 'press)
|
|
(with-current-buffer buffer-name
|
|
(should (string-match-p "T-107" (buffer-string))))
|
|
(etaf-dispatch-event runtime 'showcase-nav-theme 'press)
|
|
(with-current-buffer buffer-name
|
|
(should (string-match-p "Theme and semantics" (buffer-string))))
|
|
(etaf-dispatch-event runtime 'showcase-theme-toggle 'press)
|
|
(with-current-buffer buffer-name
|
|
(should (string-match-p "Dark theme" (buffer-string)))
|
|
(should (string-match-p "Dark semantic surface" (buffer-string))))
|
|
(etaf-dispatch-event runtime 'showcase-nav-overview 'press)
|
|
(with-current-buffer buffer-name
|
|
(should (string-match-p "Overview" (buffer-string)))
|
|
(should (string-match-p "Dark semantic surface" (buffer-string))))))
|
|
(when-let ((runtime (etaf-runtime-for-buffer buffer-name)))
|
|
(etaf-unmount runtime))
|
|
(when-let ((buffer (get-buffer buffer-name)))
|
|
(kill-buffer buffer)))))
|
|
|
|
(ert-deftest etaf-playground-showcase-keeps-backgrounds-layered ()
|
|
"Keep the root canvas background separate from semantic surface boxes."
|
|
(let ((buffer-name " *etaf-playground-showcase-layering-test*"))
|
|
(unwind-protect
|
|
(progn
|
|
(etaf-mount buffer-name (etaf-playground-showcase-view))
|
|
(let* ((runtime (etaf-runtime-for-buffer buffer-name))
|
|
(root (etaf-runtime-root-node runtime))
|
|
(layout (plist-get root :ebox-content-node))
|
|
(children (plist-get layout :children)))
|
|
(should (equal (plist-get root :bgcolor) "#F4F6FB"))
|
|
(should-not (plist-member root :surface-properties))
|
|
(should (equal (mapcar (lambda (node) (plist-get node :bgcolor))
|
|
children)
|
|
'("#FFFFFF" nil "#FFFFFF")))))
|
|
(when-let ((runtime (etaf-runtime-for-buffer buffer-name)))
|
|
(etaf-unmount runtime))
|
|
(when-let ((buffer (get-buffer buffer-name)))
|
|
(kill-buffer buffer)))))
|
|
|
|
(provide 'etaf-playground-tests)
|
|
|
|
;;; etaf-playground-tests.el ends here
|