branch: externals/org
commit 257e5359db04c77bbb07167b7570179a6c061e21
Author: Morgan Smith <[email protected]>
Commit: Ihor Radchenko <[email protected]>
Testing: Add missing `should's
* testing/lisp/test-ob-scheme.el (test-ob-scheme/tables):
* testing/lisp/test-org-tempo.el (test-org-tempo/completion):
* testing/lisp/test-org.el (test-org/edit-headline):
Add a missing `should'.
---
testing/lisp/test-ob-scheme.el | 9 +++++----
testing/lisp/test-org-tempo.el | 5 +++--
testing/lisp/test-org.el | 9 +++++----
3 files changed, 13 insertions(+), 10 deletions(-)
diff --git a/testing/lisp/test-ob-scheme.el b/testing/lisp/test-ob-scheme.el
index 79ce2b4537..0fb79ad532 100644
--- a/testing/lisp/test-ob-scheme.el
+++ b/testing/lisp/test-ob-scheme.el
@@ -32,16 +32,17 @@
(ert-deftest test-ob-scheme/tables ()
"Test table output."
- (equal "#+begin_src scheme
+ (should
+ (equal "#+begin_src scheme
'(1 2 3)
#+end_src
#+RESULTS:
| 1 | 2 | 3 |
"
- (org-test-with-temp-text "#+begin_src scheme\n'(1 2 3)\n#+end_src"
- (org-babel-execute-maybe)
- (buffer-string))))
+ (org-test-with-temp-text "#+begin_src scheme\n'(1 2 3)\n#+end_src"
+ (org-babel-execute-maybe)
+ (buffer-string)))))
(ert-deftest test-ob-scheme/verbatim ()
"Test verbatim output."
diff --git a/testing/lisp/test-org-tempo.el b/testing/lisp/test-org-tempo.el
index 7382b6dc42..800fef234a 100644
--- a/testing/lisp/test-org-tempo.el
+++ b/testing/lisp/test-org-tempo.el
@@ -53,11 +53,12 @@
(org-cycle)
(buffer-string))))
;; Tempo should not expand unknown snippets
- (equal (org-test-with-temp-text "<k"
+ (should
+ (equal (org-test-with-temp-text "<k"
(org-tempo-setup)
(call-interactively 'org-cycle)
(buffer-string))
- "<k"))
+ "<k")))
(ert-deftest test-org-tempo/space-first-line ()
"Test space on first line after expansion."
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index 96b45fbb87..03ab3edac0 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -3273,10 +3273,11 @@ More text
(org-edit-headline "B")
(buffer-string))))
;; Handle tags.
- (equal "* B :tag:"
- (org-test-with-temp-text "* A :tag:"
- (let ((org-tags-column 4)) (org-edit-headline "B"))
- (buffer-string))))
+ (should
+ (equal "* B :tag:"
+ (org-test-with-temp-text "* A :tag:"
+ (let ((org-tags-column 4)) (org-edit-headline "B"))
+ (buffer-string)))))
