Add unit test for `rdired`

1 files changed, 19 insertions, 0 deletions

diff --git a/test/ess-test-r.el b/test/ess-test-r.el
index b324912..6b618e0 100644
--- a/test/ess-test-r.el
+++ b/test/ess-test-r.el
@@ -838,6 +838,25 @@ https://github.com/emacs-ess/ESS/issues/725#issuecomment-431781558"
   :eval ((should (string= (car (ess-get-words-from-vector "getOption('pager')\n"))
                           "cat"))))
 
+;; rdired
+
+(require 'ess-rdired)
+
+(etest-deftest-r ess-rdired-test ()
+  :cleanup
+  (progn
+    (kill-buffer ess-rdired-buffer)
+    (ess-command "rm(my_rdired_variable)\n")
+    (ess-wait-for-process)
+    (etest-clear-inferior-buffer))
+  :eval
+  ((ess-command "my_rdired_variable <- TRUE\n")
+   (save-window-excursion
+     (ess-rdired))
+   (with-current-buffer ess-rdired-buffer
+     (goto-char (point-min))
+     (should (re-search-forward "my_rdired_variable" nil t)))))
+
 (provide 'ess-test-r)
 
 ;;; ess-test-r.el ends here