branch: externals/hyperbole
commit 7ae7308b46972a2e25794db334400675aeafde43
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: GitHub <nore...@github.com>
Add for ebut shell cmd and hbut delete (#98)
---
ChangeLog | 5 +++++
test/hbut-tests.el | 27 +++++++++++++++++++++++++++
2 files changed, 32 insertions(+)
diff --git a/ChangeLog b/ChangeLog
index 0393576..1ee2948 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2021-06-01 Mats Lidell <ma...@gnu.org>
+
+* test/hbut-tests.el (ebut-program-shell-cmd)
+ (ebut-delete-removes-ebut-and-returns-button-data): Tests for ebuts.
+
2021-05-30 Mats Lidell <ma...@gnu.org>
* test/hbut-tests.el (ebut-program-link-to-directory)
diff --git a/test/hbut-tests.el b/test/hbut-tests.el
index f1cd995..396e9ac 100644
--- a/test/hbut-tests.el
+++ b/test/hbut-tests.el
@@ -42,5 +42,32 @@
(should (equal (hattr:get (hbut:at-p) 'lbl-key) "label")))
(delete-file file))))
+(ert-deftest ebut-program-shell-cmd ()
+ "Programatically create ebut running shell command."
+ (let ((file (make-temp-file "hypb_" nil ".txt")))
+ (unwind-protect
+ (progn
+ (find-file file)
+ (ebut:program "label" 'exec-shell-cmd "ls /tmp")
+ (should (eq (hattr:get (hbut:at-p) 'actype)
'actypes::exec-shell-cmd))
+ (should (equal (hattr:get (hbut:at-p) 'args) '("ls /tmp")))
+ (should (equal (hattr:get (hbut:at-p) 'lbl-key) "label")))
+ (delete-file file))))
+
+(ert-deftest ebut-delete-removes-ebut-and-returns-button-data ()
+ "Remove a ebut."
+ (let ((file (make-temp-file "hypb_" nil ".txt")))
+ (unwind-protect
+ (progn
+ (find-file file)
+ (ebut:program "label" 'link-to-directory "/tmp")
+ (should (hbut:at-p))
+ (let ((args (hbut:delete)))
+ (should-not (hbut:at-p))
+ (should (equal (hbdata:actype args) "actypes::link-to-directory"))
+ (should (equal (hbdata:args args) '("/tmp")))
+ ))
+ (delete-file file))))
+
(provide 'hbut-tests)
;;; hbut-tests.el ends here
