diff options
-rw-r--r-- | src/connection.lisp | 8 | ||||
-rw-r--r-- | src/package.lisp | 1 |
2 files changed, 9 insertions, 0 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index c666de3..bc19c26 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -446,3 +446,11 @@ FORMS is typically the programmatic application of one or more properties." `(let ((*host* (make-host :propspec (make-propspec :systems nil))) (*connection* (establish-connection :local nil))) ,@forms)) + +(defmacro with-local-passwordless-sudo-connection (&body forms) + "Execute FORMS as though a passwordless :SUDO connection to localhost had been +established. Occasionally useful for testing purposes at the REPL." + `(with-local-connection + (let ((*connection* (establish-connection :sudo nil + :user "root" :password nil))) + ,@forms))) diff --git a/src/package.lisp b/src/package.lisp index 019f5f4..0d63fbf 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -111,6 +111,7 @@ #:readfile #:writefile #:with-local-connection + #:with-local-passwordless-sudo-connection ;; property.lisp #:propattrs |