[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole bda4f5e: Add hsys-org-enable-smart-keys tests
From: |
ELPA Syncer |
Subject: |
[elpa] externals/hyperbole bda4f5e: Add hsys-org-enable-smart-keys tests (#76) |
Date: |
Mon, 3 May 2021 13:57:12 -0400 (EDT) |
branch: externals/hyperbole
commit bda4f5e28effef133b80dac8ce067d21c6267cdf
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>
Add hsys-org-enable-smart-keys tests (#76)
---
ChangeLog | 12 ++++++
test/smart-org-tests.el | 97 +++++++++++++++++++++++++++++++++++++++++++------
2 files changed, 97 insertions(+), 12 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index d2e0779..4d18583 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -15,6 +15,18 @@
2021-05-02 Mats Lidell <matsl@gnu.org>
+* test/hib-org-tests.el
+ (hib-org:org-mode-with-no-smart-keys-on-file-is-org-meta-return)
+ (hib-org:org-mode-with-no-smart-keys-on-hypb-button-is-org-meta-return)
+ (hib-org:org-mode-with-no-smart-keys-on-org-link-is-org-meta-return)
+ (hib-org:org-mode-with-smart-keys-buttons-on-file-is-org-meta-return)
+ (hib-org:org-mode-with-smart-keys-buttons-on-hypb-button-activates)
+ (hib-org:org-mode-with-smart-keys-buttons-on-org-link-is-org-meta-return)
+ (hib-org:org-mode-with-smart-keys-on-file-activates)
+ (hib-org:org-mode-with-smart-keys-on-hypb-button-activates)
+ (hib-org:org-mode-with-smart-keys-on-org-link-activates):
+ Update and add new tests for hsys-org-enable-smart-keys.
+
* hui-em-but.el (hbut-face): Add face for hbuts.
(hproperty:but-face): Use face for property.
(hbut-item-face): Add face for hbut items.
diff --git a/test/smart-org-tests.el b/test/smart-org-tests.el
index 0d7435d..71d488f 100644
--- a/test/smart-org-tests.el
+++ b/test/smart-org-tests.el
@@ -20,6 +20,7 @@
(require 'ert)
(require 'hui-mouse)
(require 'hact)
+(require 'el-mock)
(declare-function hy-test-helpers:hypb-function-should-call-hpath:find
"hy-test-helpers")
@@ -40,8 +41,20 @@
(next-line)
(should (equal (line-number-at-pos) 4)))))
-(ert-deftest smart-org-mode-with-smart-keys-on-file-is-hypb-button ()
- "With smart keys on file name is hypb button."
+;; Smart Key Context
+(ert-deftest smart-org-mode-with-smart-keys-on-delimited-thing-activates ()
+ "With smart keys on delimited thing activates selection."
+ (with-temp-buffer
+ (let ((hsys-org-enable-smart-keys t))
+ (org-mode)
+ (insert "(hy per bo le)\n")
+ (goto-char 14)
+ (action-key)
+ (should (equal (point) 1)))))
+
+;; Hyperbole Button
+(ert-deftest smart-org-mode-with-smart-keys-on-hypb-button-activates ()
+ "With smart keys on hypb button activates."
(with-temp-buffer
(let ((hsys-org-enable-smart-keys t))
(org-mode)
@@ -49,28 +62,88 @@
(goto-char 1)
(hy-test-helpers:hypb-function-should-call-hpath:find 'smart-org
"/tmp"))))
-(ert-deftest smart-org-mode-with-smart-keys-buttons-on-file-is-hypb-button ()
- "With smart keys on file name is hypb button."
+;; Org Link
+(ert-deftest smart-org-mode-with-smart-keys-on-org-link-activates ()
+ "With smart keys on `org-mode' link activates link."
+ (with-temp-buffer
+ (let ((hsys-org-enable-smart-keys t))
+ (org-mode)
+ (insert "[[/tmp][desc]]")
+ (goto-char 9)
+ (with-mock
+ (mock (org-open-at-point) => t)
+ (smart-org)))))
+
+;; Smart Key Context
+(ert-deftest
smart-org-mode-with-smart-keys-buttons-on-delimited-thing-calls-org-meta-return
()
+ "With smart keys as buttons on delimited falls back to `org-meta-return'."
+ (with-temp-buffer
+ (let ((hsys-org-enable-smart-keys 'buttons))
+ (org-mode)
+ (insert "(hy per bo le)\n")
+ (goto-char 14)
+ (with-mock
+ (mock (org-meta-return nil) => t)
+ (smart-org)))))
+
+;; Hyperbole Button
+(ert-deftest smart-org-mode-with-smart-keys-buttons-on-hypb-button-activates ()
+ "With smart keys as buttons on hypb button activates."
(with-temp-buffer
(let ((hsys-org-enable-smart-keys 'buttons))
(org-mode)
(insert "/tmp")
(goto-char 1)
- (hy-test-helpers:hypb-function-should-call-hpath:find 'smart-org
"/tmp"))))
+ (hy-test-helpers:hypb-function-should-call-hpath:find 'action-key
"/tmp"))))
-(ert-deftest smart-org-mode-with-no-smart-keys-on-file-is-hypb-button ()
- "With no smart keys on file calls org mode M-RET."
+;; Org Link
+(ert-deftest
smart-org-mode-with-smart-keys-buttons-on-org-link-calls-org-meta-return ()
+ "With smart keys as buttons on `org-mode' link activates link."
+ (with-temp-buffer
+ (let ((hsys-org-enable-smart-keys 'buttons))
+ (org-mode)
+ (insert "[[/tmp][desc]]")
+ (goto-char 9)
+ (with-mock
+ (mock (org-open-at-point) => t)
+ (smart-org)))))
+
+;; Smart Key Context
+(ert-deftest
smart-org-mode-with-no-smart-keys-on-delimited-thing-calls-org-meta-return ()
+ "With no smart keys on file calls `org-meta-return'."
(with-temp-buffer
(let ((bn (buffer-name))
(hsys-org-enable-smart-keys nil))
(org-mode)
- (insert "/tmp")
- (goto-char 1)
+ (insert "(hy per bo le)\n")
+ (goto-char 14)
(smart-org)
- ;; Setting the buffer should not be needed but for some reason
- ;; it looks like we get into ert buffer after smart-org
(set-buffer bn)
- (should (equal (buffer-string) "* /tmp")))))
+ (should (string= (buffer-string) "(hy per bo le\n* )\n")))))
+
+;; Hyperbole Button
+(ert-deftest
smart-org-mode-with-no-smart-keys-on-hypb-button-calls-org-meta-return ()
+ "With no smart keys on file calls `org-meta-return'."
+ (with-temp-buffer
+ (let ((hsys-org-enable-smart-keys nil))
+ (org-mode)
+ (insert "/tmp")
+ (goto-char 1)
+ (with-mock
+ (mock (org-meta-return nil) => t)
+ (smart-org)))))
+
+;; Org Link
+(ert-deftest smart-org-mode-with-no-smart-keys-on-org-link-is-org-meta-return
()
+ "With no smart keys on `org-mode' link calls `org-meta-return'."
+ (with-temp-buffer
+ (let ((hsys-org-enable-smart-keys nil))
+ (org-mode)
+ (insert "[[/tmp][desc]]")
+ (goto-char 9)
+ (with-mock
+ (mock (org-meta-return nil) => t)
+ (smart-org)))))
(provide 'smart-org-tests)
;;; smart-org-tests.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/hyperbole bda4f5e: Add hsys-org-enable-smart-keys tests (#76),
ELPA Syncer <=