[elpa] externals/hyperbole 7ae7308: Add for ebut shell cmd and hbut delete (#98)

[ELPA Syncer]

branch: externals/hyperbole
commit 7ae7308b46972a2e25794db334400675aeafde43
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@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  <matsl@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  <matsl@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