27 lines
1.1 KiB
EmacsLisp
27 lines
1.1 KiB
EmacsLisp
;;; etaf-m0b-component-manifest-tests.el --- M0b manifest probes -*- lexical-binding: t; -*-
|
|
|
|
;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
|
|
;;; Code:
|
|
|
|
(require 'ert)
|
|
(require 'etaf-m0b-component-manifest)
|
|
|
|
(ert-deftest etaf-m0b-component-manifest-is-derived-and-mounted ()
|
|
"Derive business props and prove Host-attribute forwarding by mounting."
|
|
(let* ((manifest (etaf-m0b-component-manifest-data))
|
|
(components (alist-get 'components manifest)))
|
|
(should (= 2 (length components)))
|
|
(should (equal '("title")
|
|
(alist-get 'declared-business-props (car components))))
|
|
(should (equal '("label")
|
|
(alist-get 'declared-business-props (cadr components))))
|
|
(dolist (entry components)
|
|
(should (alist-get 'forwarded-host-attrs entry))
|
|
(should (string-match-p "single attr-capable root"
|
|
(alist-get 'root-shape-forwarding-guarantee
|
|
entry)))
|
|
(should (eq t (alist-get 'mounted-validation entry))))))
|
|
|
|
;;; etaf-m0b-component-manifest-tests.el ends here
|