       (it "kills workspace on last window"
         (quiet! (+workspace/close-window-or-workspace)
                 (+workspace/close-window-or-workspace))
-        (expect (+workspace-current-name) :to-equal persp1-name)))))
+        (expect (+workspace-current-name) :to-equal persp1-name)))
+
+    (describe "rename"
+      (it "renames the current workspace"
+        (quiet! (+workspace/rename "X"))
+        (expect (+workspace-current-name) :to-equal "X")))))

      (expect (+workspace-list-names) :not :to-contain persp2-name)))

  (describe "command"
    (describe "new"
      (it "creates a new, blank workspace"
        (quiet! (+workspace/new "X"))
        (expect (one-window-p))
        (expect (current-buffer) :to-be (doom-fallback-buffer)))
      (it "clones a workspace"
        (quiet! (+workspace/new "X" t))
        (expect (current-buffer) :to-be in1)))

    (describe "rename"
      (it "renames the current workspace"
        (quiet! (+workspace/rename "X"))
        (expect (+workspace-current-name) :to-equal "X")))

    (describe "close-window-or-workspace"
      (before-each
        (+workspace-switch persp2-name)

      (expect (+workspace-contains-buffer-p out1) :to-be nil))
    (it "automatically adds interactively opened buffers"
      (expect (+workspace-contains-buffer-p out1) :to-be nil)
      (with-current-buffer out1 (+workspaces|auto-add-buffer))
      (expect (+workspace-contains-buffer-p out1)))
    (xit "returns a list of orphaned buffers"
      (expect (+workspace-orphaned-buffer-list) :to-contain out2)))
