diff options
author | David Bremner <david@tethera.net> | 2022-05-05 08:29:23 -0300 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-05-05 12:26:10 -0700 |
commit | 4b0625d744e73e9e7ad3708320fba7fa2cab21ae (patch) | |
tree | 72be9aa75229617fe7693b71ba70edd63d3d503f | |
parent | 68cb80cfbcd7684cd2d2b8e5091d956aea71e9dd (diff) | |
download | consfigurator-4b0625d744e73e9e7ad3708320fba7fa2cab21ae.tar.gz |
provide macro WITH-RESET-DATA-SOURCES
As the docstring hints, this will be used in the test suite.
Signed-off-by: David Bremner <david@tethera.net>
-rw-r--r-- | src/data.lisp | 9 | ||||
-rw-r--r-- | src/package.lisp | 1 |
2 files changed, 10 insertions, 0 deletions
diff --git a/src/data.lisp b/src/data.lisp index 9a219c3..d5d9d4c 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -143,6 +143,15 @@ This function is typically called at the REPL." *data-sources* nil *data-source-registrations* nil)) +(defmacro with-reset-data-sources (&body body) + "Run BODY with initially empty data sources and string data. + +This macro is typically used for testing or debugging." + `(let ((*string-data* (make-hash-table)) + *data-sources* + *data-source-registrations*) + ,@body)) + (defun get-data-string (iden1 iden2) "Return the content of an item of prerequisite data as a string. diff --git a/src/package.lisp b/src/package.lisp index 3819017..1bbf7b6 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -325,6 +325,7 @@ #:unwrap-passphrase #:get-data-protected-string #:*data-source-gnupghome* + #:with-reset-data-sources ;; image.lisp #:eval-in-grandchild |