[elpa] externals/hyperbole e684614: Add tests with ebut program (#97)

[ELPA Syncer]

branch: externals/hyperbole
commit e68461492360c27327cf6c639a2b6fd750f05ca5
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    Add tests with ebut program (#97)
---
 ChangeLog                                   |  10 +
 test/hbut-tests.el                          | 523 ++--------------------------
 test/{hbut-tests.el => hmouse-drv-tests.el} |   7 +-
 test/hui-tests.el                           |   2 +
 4 files changed, 41 insertions(+), 501 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0d3c441..0393576 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2021-05-30  Mats Lidell  <matsl@gnu.org>
+
+* test/hbut-tests.el (ebut-program-link-to-directory)
+    (ebut-program-link-to-directory-2): Add test for ebut:program
+
+* test/hmouse-drv-tests.el: Renamed from hbut-tests.el
+
+* test/hui-tests.el (hui-ebut-create-link-to-directory)
+    (hui-ebut-use-region-as-label): Add check on button args
+
 2021-05-29  Bob Weiner  <rsw@gnu.org>
 
 * hpath.el (hpath:is-p, hpath:call): Return nil if path
diff --git a/test/hbut-tests.el b/test/hbut-tests.el
index bfc6319..f1cd995 100644
--- a/test/hbut-tests.el
+++ b/test/hbut-tests.el
@@ -2,7 +2,7 @@
 
 ;; Author: Mats Lidell <matsl@gnu.org>
 ;;
-;; Orig-Date: 28-Feb-21 at 22:52:00
+;; Orig-Date: 30-may-21 at 09:33:00
 ;;
 ;; Copyright (C) 2021  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -11,509 +11,36 @@
 
 ;;; Commentary:
 
-;; Runs tests that are based on using the action-key.
+;; "../hbut.el"
 
 ;;; Code:
 
 (require 'ert)
 (require 'hbut)
-(require 'el-mock)
 
-(load (expand-file-name "hy-test-helpers"
-                        (file-name-directory (or load-file-name
-                                                 default-directory))))
-(declare-function hy-test-helpers:consume-input-events "hy-test-helpers")
-
-(ert-deftest hbut-defal ()
-  (defal defal-path "${hyperb:dir}/\\1")
-  (unwind-protect
-      (with-temp-buffer
-        (insert "<defal-path DEMO>")
-        (goto-char 4)
-        (action-key)
-        (should (string= (expand-file-name "DEMO" hyperb:dir) 
buffer-file-name))))
-    (progn
-      (kill-buffer "DEMO")
-      (ibtype:delete 'ibtypes::defal-path)))
-
-(defun hbut-defal-url (url &optional new-window)
-  "Verify call with proper URL and optional NEW-WINDOW."
-  (should (equal url "https://github.com/rswgnu/hyperbole/pull/34";))
-  (should (equal new-window nil)))
-
-(ert-deftest hbut-defal-url ()
-  (defal defal-url "https://github.com/rswgnu/hyperbole/pull/\\1";)
-  (unwind-protect
-      (with-temp-buffer
-        (insert "<defal-url 34>")
-        (goto-char 4)
-        (let ((browse-url-browser-function 'hbut-defal-url))
-          (action-key)))
-    (ibtype:delete 'ibtypes::defal-url)))
-
-(ert-deftest hbut-defal-url-%s ()
-  "Use defal with %s in LINK-EXPR."
-  (defal defal-url "https://github.com/rswgnu/hyperbole/pull/%s";)
-  (unwind-protect
-      (with-temp-buffer
-        (insert "<defal-url 34>")
-        (goto-char 4)
-        (let ((browse-url-browser-function 'hbut-defal-url))
-          (action-key)))
-    (ibtype:delete 'ibtypes::defal-url)))
-
-(ert-deftest hbut-defal-key-sequence ()
-  (skip-unless (not noninteractive))
-  (defal defal-key "{C-h v \\1 RET}")
-  (unwind-protect
-      (with-temp-buffer
-        (insert "<defal-key emacs-version>")
-        (goto-char 4)
-        (action-key)
-        (hy-test-helpers:consume-input-events)
-        (set-buffer "*Help*")
-        (should (looking-at "emacs-version")))
-    (ibtype:delete 'ibtypes::defal-key)))
-
-(defun hbut-verify-defal (x)
-  "Verify function i called with X set to the string `test'."
-  (should (string= x "test")))
-
-(ert-deftest hbut-defal-function ()
-  "Use only the argument portion of the button text."
-  (defal defal-func 'hbut-verify-defal)
-  (unwind-protect
-      (with-temp-buffer
-        (insert "<defal-func test>")
-        (goto-char 4)
-        (action-key)))
-    (progn
-      (ibtype:delete 'ibtypes::defal-func)))
-  
-(ert-deftest hbut-defal-fails-on-file-missing ()
-  (defal defal-path-missing "${hyperb:dir}/\\1")
-  (unwind-protect
-      (with-temp-buffer
-        (insert "<defal-path-missing UNKNOWN-FILE>")
-        (goto-char 4)
-        (condition-case err
-            (action-key)
-          (error
-           (progn
-             (should (equal (car err) 'error))
-             (should (string-match "hpath:find" (cadr err)))))))
-    (ibtype:delete 'ibtypes::defal-path-missing)))
-
-(ert-deftest hbut-defil-it ()
-  (defil defil-path-it "<<<" ">>>" ".*" "${hyperb:dir}/\\&")
-  (unwind-protect
-      (with-temp-buffer
-        (insert "<<<DEMO>>>")
-        (goto-char 4)
-        (action-key)
-        (should (string= (expand-file-name "DEMO" hyperb:dir) 
buffer-file-name)))
-    (progn
-      (kill-buffer "DEMO")
-      (ibtype:delete 'ibtypes::defil-path-it))))
-
-(ert-deftest hbut-defil ()
-  (defil defil-path "<<<" ">>>" ".*" "${hyperb:dir}/\\&")
-  (unwind-protect
-      (with-temp-buffer
-        (insert "<<<DEMO>>>")
-        (goto-char 4)
-        (hy-test-helpers:action-key-should-call-hpath:find 
"${hyperb:dir}/DEMO"))
-    (progn
-      (ibtype:delete 'ibtypes::defil-path))))
-
-(ert-deftest hbut-defil-url ()
-  (defil defil-url "<<<" ">>>" ".*" 
"https://github.com/rswgnu/hyperbole/pull/\\&";)
-  (unwind-protect
-      (with-temp-buffer
-        (insert "<<<34>>>")
-        (goto-char 4)
-        (let ((browse-url-browser-function 'hbut-defal-url))
-          (action-key)))
-    (ibtype:delete 'ibtypes::defil-url)))
-
-(ert-deftest hbut-defil-key-sequence ()
-  (skip-unless (not noninteractive))
-  (defil defil-key "<<<" ">>>" ".*" "{C-h v \\& RET}")
-  (unwind-protect
-      (with-temp-buffer
-        (insert "<<<emacs-version>>>")
-        (goto-char 4)
-        (action-key)
-        (hy-test-helpers:consume-input-events)
-        (set-buffer "*Help*")
-        (should (looking-at "emacs-version")))
-    (ibtype:delete 'ibtypes::defil-key)))
-
-;; Labels
-(ert-deftest hbut-ib-link-to-file-with-label ()
-  (with-temp-buffer
-    (insert "<[emacs]>: \"${hyperb:dir}/DEMO\"")
-    (goto-char 4)
-    (hy-test-helpers:action-key-should-call-hpath:find (expand-file-name 
"DEMO" hyperb:dir))))
-
-(ert-deftest hbut-ib-link-to-file-with-label-variants ()
-  (cl-loop for ch in '(?: ?- ?=) do
-           (cl-loop for n from 0 to 3 do
-                    (with-temp-buffer
-                      (insert "<[demo]>" (make-string n ch) " 
\"${hyperb:dir}/DEMO\"")
-                      (goto-char 4)
-                      (hy-test-helpers:action-key-should-call-hpath:find 
(expand-file-name "DEMO" hyperb:dir))))))
-
-(ert-deftest hbut-ib-url-with-label ()
-  "Find link using label."
-  (with-temp-buffer
-    (insert "<[PR34]>: \"https://github.com/rswgnu/hyperbole/pull/34\"";)
-    (goto-char 4)
-    (let ((browse-url-browser-function 'hbut-defal-url))
-      (action-key))))
-
-(ert-deftest hbut-ib-create-label ()
-  "Create a label for an implicit button"
-  (with-temp-buffer
-    (insert "\"/tmp\"\n")
-    (goto-char 3)
-    (with-simulated-input "TMP RET"
-      (hui:ibut-label-create)
-      (should (string= "<[TMP]> \"/tmp\"\n" (buffer-string))))))
-
-(ert-deftest hbut-ib-create-label-fails-if-label-exists ()
-  "Creation of a label for an implicit button fails if a label exists."
-  (with-temp-buffer
-    (insert "<[LBL]>: \"/tmp\"\n")
-    (goto-char 14)
-    (with-simulated-input "TMP RET"
-      (condition-case err
-          (hui:ibut-label-create)
-        (error
-         (progn
-           (should (equal (car err) 'error))
-           (should (string-match "ibutton at point already has a label" (cadr 
err)))))))))
-
-(ert-deftest hbut-pathname-path-variable-test ()
-  "Find file in path variable value."
-  (with-temp-buffer
-    (insert "\"/var/lib:/bar:/tmp:/foo\"")
-    (goto-char 16)
-    (hy-test-helpers:action-key-should-call-hpath:find "/tmp")))
-
-(ert-deftest hbut-pathname-path-variable-with-two-colons-is-one-file-test ()
-  "Path variable value with two colons is insufficient to be recognized as a 
path variable value."
-  (with-temp-buffer
-    (insert "\"/var/lib:/bar:/tmp\"")
-    (goto-char 16)
-    (hy-test-helpers:action-key-should-call-hpath:find "/var/lib:/bar:/tmp")))
-
-(ert-deftest hbut-pathname-path-variable-with-three-colons-is-a-path-test ()
-  "Path variable value with three colons is sufficient to be recognized as a 
path variable value."
-  (with-temp-buffer
-    (insert "\"/var/lib:/bar:/tmp:/foo\"")
-    (goto-char 16)
-    (hy-test-helpers:action-key-should-call-hpath:find "/tmp")))
-
-(ert-deftest 
hbut-pathname-path-variable-with-short-first-element-is-not-tramp-url-test ()
-  "Path variable with three colons is not seen as a tramp url."
-  (with-temp-buffer
-    (insert "\"/a:/bar:/tmp:~foo\"")
-    (goto-char 14)
-    (hy-test-helpers:action-key-should-call-hpath:find "/tmp")))
-
-;; Mail address
-(ert-deftest hbut-mail-address-test ()
-  "Open mail from mail address."
-  (unwind-protect
-      (with-temp-buffer
-        (insert "receiver@mail.org")
-        (goto-char 2)
-        (action-key)
-        (should (string= "*mail*" (buffer-name))))
-    (kill-buffer "*mail*")))
-
-;; Path name
-(ert-deftest hbut-pathname-test ()
-  (unwind-protect
-      (with-temp-buffer
-        (insert (format "\"%s\"" (expand-file-name "DEMO" hyperb:dir)))
-        (goto-char 2)
-        (action-key)
-        (should (string= "DEMO" (buffer-name))))
-    (kill-buffer "DEMO")))
-
-(ert-deftest hbut-pathname-lisp-variable-test ()
-  (unwind-protect
-      (with-temp-buffer
-        (insert "\"${hyperb:dir}/DEMO\"")
-        (goto-char 2)
-        (action-key)
-        (should (string= "DEMO" (buffer-name))))
-    (kill-buffer "DEMO")))
-
-(ert-deftest hbut-pathname-env-variable-test ()
-  (unwind-protect
-      (with-temp-buffer
-        (insert "\"${HOME}\"")
-        (goto-char 2)
-        (action-key)
-        (should (equal major-mode 'dired-mode))
-       (should (= 0 (string-match (file-truename (getenv "HOME"))
-                                  (file-truename default-directory)))))
-    nil))
-
-(ert-deftest hbut-pathname-emacs-lisp-file-test ()
-  (unwind-protect
-      (with-temp-buffer
-        (insert "\"hyperbole.el\"")
-        (goto-char 2)
-        (action-key)
-        (should (equal major-mode 'emacs-lisp-mode))
-        (should (buffer-file-name))
-        (should (string= "hyperbole.el" (buffer-name)))))
-  (kill-buffer "hyperbole.el"))
-
-(ert-deftest hbut-pathname-anchor-test ()
-  "Pathname with anchor."
-  (unwind-protect
-      (with-temp-buffer
-        (insert "\"${hyperb:dir}/DEMO#Smart Keys\"")
-        (goto-char 2)
-        (action-key)
-        (should (string= "DEMO" (buffer-name)))
-        (should (looking-at "\* Smart Keys")))
-    (kill-buffer "DEMO")))
-
-(ert-deftest hbut-pathname-anchor-line-test ()
-  "Pathname with anchor and line specification."
-  (unwind-protect
-      (with-temp-buffer
-        (insert "\"${hyperb:dir}/DEMO#Smart Keys:2\"")
-        (goto-char 2)
-        (action-key)
-        (should (string= "DEMO" (buffer-name)))
-        (forward-line -2)
-        (should (looking-at "\* Smart Keys")))
-    (kill-buffer "DEMO")))
-
-(ert-deftest hbut-pathname-line-column-test ()
-  "Pathname with line and position specification."
-  (unwind-protect
-      (with-temp-buffer
-        (insert "\"${hyperb:dir}/DEMO:3:45\"")
-        (goto-char 2)
-        (action-key)
-        (should (string= "DEMO" (buffer-name)))
-        (should (= (line-number-at-pos) 3))
-        (should (= (current-column) 45)))
-    (kill-buffer "DEMO")))
-
-(ert-deftest hbut-pathname-load-path-line-column-test ()
-  "Pathname with `load-path', line and position specification."
-  (unwind-protect
-      (with-temp-buffer
-        (insert "\"${load-path}/hypb.el:10:5\"")
-        (goto-char 2)
-        (action-key)
-        (should (string= "hypb.el" (buffer-name)))
-        (should (= (line-number-at-pos) 10))
-        (should (= (current-column) 5)))
-    (kill-buffer "hypb.el")))
-
-(ert-deftest hbut-pathname-with-dash-loads-file-test ()
-  "Pathname with dash loads file."
-  (with-temp-buffer
-    (insert "\"-${hyperb:dir}/test/hy-test-dependencies.el\"")
-    (goto-char 2)
-    (action-key)
-    (hy-test-helpers:should-last-message "Loading")
-    (hy-test-helpers:should-last-message "hy-test-dependencies.el")))
-
-(ert-deftest hbut-pathname-directory-test ()
-  "Pathname with directory opens dired."
-  (unwind-protect
-      (with-temp-buffer
-        (insert "\"/tmp\"")
-        (goto-char 2)
-        (action-key)
-        (should (string= "tmp" (buffer-name)))
-        (should (eq major-mode 'dired-mode)))
-    (kill-buffer "tmp")))
-
-(ert-deftest hbut-pathname-dot-slash-in-other-folder-should-fail-test ()
-  "Pathname that starts with ./ only works if in same folder."
-  (with-temp-buffer
-    (insert "\"./hypb.el\"")
-    (goto-char 2)
-    (let ((help-buffer "*Help: Hyperbole Action Key*")
-          (default-directory (expand-file-name "test" hyperb:dir)))
-      (condition-case err
-          (action-key)
-        (error
-         (progn
-           (should (equal (car err) 'error))
-           (should (string-match
-                    "(Hyperbole Action Key): No action defined for this 
context; try another location"
-                    (cadr err)))))))))
-
-;; hbut-annot-bib
-(ert-deftest hbut-annot-bib-test ()
-  (unwind-protect
-      (progn
-        (hypb:display-file-with-logo (expand-file-name "DEMO" hyperb:dir))
-        (re-search-forward "\\[FSF 19\\]")
-        (backward-char 1)
-        (action-key)
-        (should (looking-at "\\[FSF 19\\] Free Software Foundation"))
-        (forward-line -2)
-        (should (looking-at "\\* References")))
-    (kill-buffer "DEMO")))
-
-;; ctags
-; Seems ctags -v does not give the proper answer
-(ert-deftest hbut-ctags-vgrind-test ()
-  (unwind-protect
-      (with-temp-buffer
-        (insert "hy-test-helpers:consume-input-events hy-test-helpers.el 21\n")
-        (goto-char (point-min))
-        (forward-char 4)
-        (let ((default-directory (expand-file-name "test" hyperb:dir)))
-          (action-key)
-          (set-buffer "hy-test-helpers.el")
-          (should (looking-at "(defun hy-test-helpers:consume-input-events"))))
-    (kill-buffer "hy-test-helpers.el")))
-
-;; etags
-(ert-deftest ibtypes::etags-test ()
-  (unwind-protect
-      (with-temp-buffer
-        (insert "\n")
-        (insert "hy-test-helpers.el,103\n")
-        (insert "(defun hy-test-helpers:consume-input-events 21,359\n")
-        (rename-buffer (concat "TAGS" (buffer-name)))
-        (goto-char (point-min))
-        (forward-line 2)
-        (forward-char 10)
-        (let ((default-directory (expand-file-name "test" hyperb:dir)))
-          (action-key)
-          (set-buffer "hy-test-helpers.el")
-          (should (looking-at "(defun hy-test-helpers:consume-input-events"))))
-    (kill-buffer "hy-test-helpers.el")))
-
-;; text-toc
-(ert-deftest hbut-text-toc-test ()
-  (unwind-protect
-      (progn
-        (hypb:display-file-with-logo (expand-file-name "DEMO" hyperb:dir))
-        (goto-char (point-min))
-        (re-search-forward " \* Koutl")
-        (action-key)
-        (should (bolp))
-        (should (looking-at "^* Koutliner")))
-    (kill-buffer "DEMO")))
-
-;; dir-summary
-(ert-deftest hbut-dir-summary-test ()
-  (unwind-protect
-      (progn
-        (find-file (expand-file-name "MANIFEST" hyperb:dir))
-        (goto-char (point-min))
-        (re-search-forward "HY-ABOUT")
-        (forward-char -2)
-        (let ((hpath:display-where 'this-window))
-          (action-key)
-          (should (string= "HY-ABOUT" (buffer-name)))))
-    (progn
-      (kill-buffer "MANIFEST")
-      (kill-buffer "HY-ABOUT"))))
-
-;; rfc
-(ert-deftest hbut-rfc-test ()
-  (dolist (rfc '("RFC822" "RFC-822" "rfc 822"))
-    (with-temp-buffer
-      (insert rfc)
-      (goto-char 2)
-      (with-mock
-        (mock (actypes::link-to-rfc "822") => t)
-        (should (action-key))))))
-
-;; man-apropos
-(ert-deftest hbut-man-apropos-test ()
-  (with-temp-buffer
-    (insert "rm (1)   - remove")
-    (goto-char 4)
-    (with-mock
-     (mock (man "rm(1)") => t)
-     (action-key))))
-
-;; info-node
-(ert-deftest hbut-info-node-test ()
-  "Got to info node."
-  (unwind-protect
-      (with-temp-buffer
-        (insert "\"(emacs)top\"")
-        (goto-char 6)
-        (action-key)
-        (should (string= "*info*" (buffer-name))))
-    (kill-buffer "*info*")))
-
-;; exec-shell-cmd
-(ert-deftest hbut-find-exec-shell-cmd-test ()
-  "Path prefix ! will run pathname as a non windowed program."
-  (with-temp-buffer
-    (insert "\"!/bin/ls\"")
-    (goto-char 2)
-    (let ((was-called nil))
-      (cl-letf (((symbol-function 'actypes::exec-shell-cmd)
-                 (lambda (filename)
-                   (setq was-called (should (string= "/bin/ls" filename))))))
-        (action-key)
-        (should was-called)))))
-
-;; exec-window-cmd
-(ert-deftest hbut-find-exec-window-cmd-test ()
-  "Path prefix & will run pathname as a windowed program."
-  (with-temp-buffer
-    (insert "\"&/bin/ls\"")
-    (goto-char 2)
-    (let ((was-called nil))
-      (cl-letf (((symbol-function 'actypes::exec-window-cmd)
-                 (lambda (filename)
-                   (setq was-called (should (string= "/bin/ls" filename))))))
-        (action-key)
-        (should was-called)))))
-
-(ert-deftest hbut-load-modifier-loads-file ()
-  "Path prefix - will load elisp file."
-  (with-temp-buffer
-    (insert "\"-/folder/hyperbole.el\"")
-    (goto-char 2)
-    (let ((was-called nil))
-      (cl-letf (((symbol-function 'load)
-                 (lambda (filename)
-                   (setq was-called (should (string= "/folder/hyperbole.el" 
filename))))))
-        (action-key)
-        (should was-called)))))
-
-(ert-deftest hbut-load-modifier-with-plain-file-loads-file-from-load-path ()
-  "Path prefix - filename without directory will load from`load-path'."
-  (with-temp-buffer
-    (insert "\"-tutorial.el\"")
-    (goto-char 2)
-    (let ((was-called nil))
-      (cl-letf (((symbol-function 'load)
-                 (lambda (filename)
-                   (setq was-called
-                         (should (string= (locate-library "tutorial.el") 
filename))))))
-        (action-key)
-        (should was-called)))))
-
-;; This file can't be byte-compiled without the `el-mock' package (because of
-;; the use of the `with-mock' macro), which is not a dependency of Hyperbole.
-;;  Local Variables:
-;;  no-byte-compile: t
-;;  End:
+(ert-deftest ebut-program-link-to-directory ()
+  "Programatically create ebut with link-to-directory."
+  (let ((file (make-temp-file "hypb_" nil ".txt")))
+    (unwind-protect
+        (progn
+          (find-file file)
+          (ebut:program "label" 'link-to-directory "/tmp")
+          (should (eq (hattr:get (hbut:at-p) 'actype) 
'actypes::link-to-directory))
+          (should (equal (hattr:get (hbut:at-p) 'args) '("/tmp")))
+          (should (equal (hattr:get (hbut:at-p) 'lbl-key) "label")))
+      (delete-file file))))
+
+(ert-deftest ebut-program-link-to-directory-2 ()
+  "Programatically create ebut with link-to-directory."
+  (let ((file (make-temp-file "hypb_" nil ".txt")))
+    (unwind-protect
+        (progn
+          (find-file file)
+          (ebut:program "label" 'link-to-directory (temporary-file-directory))
+          (should (eq (hattr:get (hbut:at-p) 'actype) 
'actypes::link-to-directory))
+          (should (equal (hattr:get (hbut:at-p) 'args) 
'((temporary-file-directory))))
+          (should (equal (hattr:get (hbut:at-p) 'lbl-key) "label")))
+      (delete-file file))))
 
 (provide 'hbut-tests)
 ;;; hbut-tests.el ends here
diff --git a/test/hbut-tests.el b/test/hmouse-drv-tests.el
similarity index 98%
copy from test/hbut-tests.el
copy to test/hmouse-drv-tests.el
index bfc6319..25d1c15 100644
--- a/test/hbut-tests.el
+++ b/test/hmouse-drv-tests.el
@@ -1,4 +1,4 @@
-;;; hbut-tests.el --- hbut unit tests         -*- lexical-binding: t; -*-
+;;; hmouse-drv-tests.el --- hmouse-drv unit tests         -*- lexical-binding: 
t; -*-
 
 ;; Author: Mats Lidell <matsl@gnu.org>
 ;;
@@ -12,6 +12,7 @@
 ;;; Commentary:
 
 ;; Runs tests that are based on using the action-key.
+;; See "../hmouse-drv.el"
 
 ;;; Code:
 
@@ -515,5 +516,5 @@
 ;;  no-byte-compile: t
 ;;  End:
 
-(provide 'hbut-tests)
-;;; hbut-tests.el ends here
+(provide 'hmouse-drv-tests)
+;;; hmouse-drv-tests.el ends here
diff --git a/test/hui-tests.el b/test/hui-tests.el
index c513e93..1eb0473 100644
--- a/test/hui-tests.el
+++ b/test/hui-tests.el
@@ -56,6 +56,7 @@
           (should (hact 'kbd-key "C-h h e c label RET RET link-to-directory 
RET RET"))
           (hy-test-helpers:consume-input-events)
           (should (eq (hattr:get (hbut:at-p) 'actype) 
'actypes::link-to-directory))
+          (should (equal (hattr:get (hbut:at-p) 'args) '("./")))
           (should (equal (hattr:get (hbut:at-p) 'lbl-key) "label")))
       (delete-file file))))
 
@@ -71,6 +72,7 @@
           (should (hact 'kbd-key "C-h h e c RET link-to-directory RET RET"))
           (hy-test-helpers:consume-input-events)
           (should (eq (hattr:get (hbut:at-p) 'actype) 
'actypes::link-to-directory))
+          (should (equal (hattr:get (hbut:at-p) 'args) '("./")))
           (should (equal (hattr:get (hbut:at-p) 'lbl-key) "label")))
       (delete-file file))))