diff options
| author | Craig Jennings <c@cjennings.net> | 2026-07-25 15:00:56 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-07-25 15:00:56 -0500 |
| commit | 2c416f5361ed10cd73eb72eb5062261b2e73c18f (patch) | |
| tree | 5c84c09deb2c8392544020d432ffcd0fccde79f2 /tests/gallery-widgets/test-gallery-widget.el | |
| parent | d52da959bc416e09bc0f3e54994563bd80e19c64 (diff) | |
| download | archsetup-2c416f5361ed10cd73eb72eb5062261b2e73c18f.tar.gz archsetup-2c416f5361ed10cd73eb72eb5062261b2e73c18f.zip | |
refactor(prototypes): merge casting widgets into Dupre kit
Diffstat (limited to 'tests/gallery-widgets/test-gallery-widget.el')
| -rw-r--r-- | tests/gallery-widgets/test-gallery-widget.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/gallery-widgets/test-gallery-widget.el b/tests/gallery-widgets/test-gallery-widget.el index c0d38b4..9a3c29f 100644 --- a/tests/gallery-widgets/test-gallery-widget.el +++ b/tests/gallery-widgets/test-gallery-widget.el @@ -54,6 +54,26 @@ (should-error (gallery-widget--needle-angle "fifty")) (should-error (gallery-widget--needle-angle nil))) +;;; --- shared SVG geometry --- + +(ert-deftest gallery-widget-semicircle-path-normal () + "A semicircle path is derived from center and radius, not copied literals." + (should (equal (gallery-widget--semicircle-path 48 48 47) + "M 1 48 A 47 47 0 0 1 95 48"))) + +(ert-deftest gallery-widget-semicircle-path-can-close-a-hub () + "The same geometry helper closes the smaller half-dome hub." + (should (equal (gallery-widget--semicircle-path 48 48 4 t) + "M 44 48 A 4 4 0 0 1 52 48 Z"))) + +(ert-deftest gallery-widget-source-uses-only-public-dom-append () + "The renderer must not depend on svg.el's private `svg--append' API." + (with-temp-buffer + (insert-file-contents + (expand-file-name "docs/prototypes/gallery-widget.el" + test-gallery-widget--root)) + (should-not (search-forward "svg--append" nil t)))) + ;;; --- rendered SVG structure --- (defun test-gallery-widget--svg-string (value) |