From d3a3352ba05c58d4f1de798767b9853f05b65f98 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 14 May 2021 16:44:09 -0700 Subject: replace uses of WITH-LOCAL-CONNECTION in tests/property/file.lisp Signed-off-by: Sean Whitton --- tests/property/file.lisp | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'tests') diff --git a/tests/property/file.lisp b/tests/property/file.lisp index 10a20b1..1ebd878 100644 --- a/tests/property/file.lisp +++ b/tests/property/file.lisp @@ -11,8 +11,8 @@ one three # one three EOF s)) - (with-local-connection - (file:contains-conf-space temp "foo" "baz" "one" "four" "two" "five")) + (deploy-these :local "localhost" + (evals `(file:contains-conf-space ,temp "foo" "baz" "one" "four" "two" "five"))) (read-file-string temp)) #>EOF>foo baz @@ -30,9 +30,9 @@ EOF) # bar=baz other="three word s" EOF s)) - (with-local-connection - (file:contains-conf-shell - temp "bar" "two words" "quux" "one" "other" "one")) + (deploy-these :local "localhost" + (evals `(file:contains-conf-shell + ,temp "bar" "two words" "quux" "one" "other" "one"))) (read-file-string temp)) #>EOF>foo="bar baz" @@ -51,13 +51,13 @@ two=three ; bar = ba bar = baz baz quux EOF s)) - (with-local-connection - (file:contains-ini-settings temp - '("one" "four" "five") - '("another" "k" "v") - '("other" "bar" "baz") - '("another" "key" "val") - '("finally" "this" "one"))) + (deploy-these :local "localhost" + (evals `(file:contains-ini-settings ,temp + '("one" "four" "five") + '("another" "k" "v") + '("other" "bar" "baz") + '("another" "key" "val") + '("finally" "this" "one")))) (read-file-string temp)) #>EOF>[one] two=three -- cgit v1.2.3