          (when arg
            ;; editing style
            `(("dotspacemacs-editing-style 'vim"
-              ,(format "dotspacemacs-editing-style '%S"
-                       (dotspacemacs//ido-completing-read
-                        "What is your preferred style? "
-                        '(("Among the stars aboard the Evil flagship (vim)"
-                           vim)
-                          ("On the planet Emacs in the Holy control tower (emacs)"
-                           emacs)))))))))
+              ,(format
+                "dotspacemacs-editing-style '%S"
+                (dotspacemacs//ido-completing-read
+                 "What is your preferred style? "
+                 '(("Among the stars aboard the Evil flagship (vim)"
+                    vim)
+                   ("On the planet Emacs in the Holy control tower (emacs)"
+                    emacs)))))))))
     (with-current-buffer (find-file-noselect
                        (concat dotspacemacs-template-directory
                                ".spacemacs.template"))

    (load dotspacemacs-filepath)
    (dotspacemacs/layers)
    (spacemacs//test-list
     'stringp 'dotspacemacs-configuration-layer-path "is a string" "path")
    (spacemacs//test-list
     'file-directory-p 'dotspacemacs-configuration-layer-path "exists in filesystem" "path")
    (setq dotspacemacs-configuration-layers
          (mapcar (lambda (l) (if (listp l) (car l) l)) dotspacemacs-configuration-layers))
    (spacemacs//test-list
     'configuration-layer/get-layer-path
     'dotspacemacs-configuration-layers  "can be found" "layer")
    (insert (format
             "** RESULTS: [[file:%s::dotspacemacs/layers][dotspacemacs/layers]] passed %s out of %s tests\n"
             dotspacemacs-filepath passed-tests total-tests))
    (equal passed-tests total-tests)))

(defun dotspacemacs//test-dotspacemacs/init ()
  "Tests for `dotspacemacs/init'"
  (insert
   (format "\n* Testing settings in dotspacemacs/init [[file:%s::dotspacemacs/init][Show in File]]\n"
           dotspacemacs-filepath))
  ;; protect global values of these variables
  (let (dotspacemacs-editing-style dotspacemacs-verbose-loading

    ;; dotspacemacs-version not implemented yet
    ;; (if (version< dotspacemacs-version min-version)
    (if nil
        (error (format (concat "error: dotspacemacs/test-dotfile requires "
                               "dotspacemacs-version %s") min-version))
      (with-current-buffer (get-buffer-create dotspacemacs-test-results-buffer)
        (unless hide-buffer
          (switch-to-buffer-other-window dotspacemacs-test-results-buffer))
