Avoid a potential error if the REPL config defcustoms are all nil

Previously in such cases we'd get a `do` expression without a body, which isn't
be nice.  Now we generate the config expression only after checking it needs to
generated to begin with.

1 files changed, 12 insertions, 0 deletions

diff --git a/test/cider-repl-tests.el b/test/cider-repl-tests.el
index 90fde017..0a40ac0f 100644
--- a/test/cider-repl-tests.el
+++ b/test/cider-repl-tests.el
@@ -142,3 +142,15 @@ PROPERTY shoudl be a symbol of either 'text, 'ansi-context or
           (fill-column 80))
       (expect (cider--pretty-print-width)
               :to-equal fill-column))))
+
+(describe "cider-repl--build-config-expression"
+  (it "returns nil when all the config values are nil"
+    (let ((cider-repl-print-length nil)
+          (cider-repl-print-level nil))
+      (expect (cider-repl--build-config-expression) :to-equal nil)))
+  (it "returns an when any the config values are non-nil"
+    (let ((cider-repl-print-length 10)
+          (cider-repl-print-level 10))
+      (expect (cider-repl--build-config-expression)
+              :to-equal
+              "(do (set! *print-length* 10) (set! *print-level* 10))"))))