From 41b04c179964b7cc6a83e6749c436b3ba6cb0d39 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 2 May 2021 13:06:57 -0700 Subject: replace WITH-LOCAL-... with an EVALS property Signed-off-by: Sean Whitton --- src/connection.lisp | 16 ---------------- 1 file changed, 16 deletions(-) (limited to 'src/connection.lisp') diff --git a/src/connection.lisp b/src/connection.lisp index 0ebe348..487559d 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -436,22 +436,6 @@ PATH may be any kind of file, including directories." (mrun :may-fail #?"chown ${uid}:${gid} ${namestring}"))))) (connection-writefile *connection* namestring content mode))) -(defmacro with-local-connection (&body forms) - "Execute FORMS as though a :LOCAL connection had been established. -This is for testing purposes at the REPL and in Consfigurator's test suite. -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))) - ;;;; Connection attributes -- cgit v1.2.3