                   do (with-current-buffer buf
                        (setq buffer-file-name (make-temp-file "workspaces-test-"))))
          ,@body
-         (+workspace-delete +workspaces-main)
          (let (kill-buffer-query-functions kill-buffer-hook)
            (mapc #'kill-buffer (list ,@(mapcar #'car buffers)))))
-       (persp-mode -1))))
+       (let (noninteractive)
+         (persp-mode -1)))))
 
 ;; `+workspaces|init'
 (def-test! init

         (cl-loop for bsym in buffer-args
                  collect `(,bsym (get-buffer-create ,(symbol-name bsym))))))
    `(let ((persp-auto-resume-time -1)
           (persp-auto-save-opt 0)
           persp-autokill-buffer-on-remove
           persp-names-cache
           noninteractive)
       (+workspaces|init)
       (let* (,@buffers)
         (cl-loop with persp = (get-current-persp)
                  for buf in (list ,@(mapcar #'car buffers))

;; -*- no-byte-compile: t; -*-
;;; feature/workspaces/test/autoload-workspaces.el

(require! :feature workspaces)

(defmacro with-workspace!! (buffer-args &rest body)
