diff options
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)) |