diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-27 21:29:47 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:25 +0100 |
| commit | ad99ea49de2bda94f1f6af1c14b61401c1696f9d (patch) | |
| tree | 4c50a7ccbe52a066586842436908e0409994eab3 /tests/unit/vcomponent/vcomponent.scm | |
| parent | Group tests/recurrence-simple to avoid warnings. (diff) | |
| download | calp-ad99ea49de2bda94f1f6af1c14b61401c1696f9d.tar.gz calp-ad99ea49de2bda94f1f6af1c14b61401c1696f9d.tar.xz | |
Tests.
Diffstat (limited to 'tests/unit/vcomponent/vcomponent.scm')
| -rw-r--r-- | tests/unit/vcomponent/vcomponent.scm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/tests/unit/vcomponent/vcomponent.scm b/tests/unit/vcomponent/vcomponent.scm index 7a9ce96a..2f692d19 100644 --- a/tests/unit/vcomponent/vcomponent.scm +++ b/tests/unit/vcomponent/vcomponent.scm @@ -135,7 +135,14 @@ ;; parameters ;; properties -;; x-property? -;; internal-field? +(test-group "x-property?" + (test-assert (x-property? 'X-Extension)) + (test-assert (not (x-property? 'Regular))) + (test-assert (not (x-property? '-internal)))) + +(test-group "internal-field?" + (test-assert (not (internal-field? 'X-Extension))) + (test-assert (not (internal-field? 'Regular))) + (test-assert (internal-field? '-internal))) '((vcomponent base)) |