branch: externals/hyperbole
commit 1e8ea851ae70ed7fb5902a206af1c260f821e9ec
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: GitHub <nore...@github.com>
Add hui-select delimited-thing tests (#185)
* Add hui-select delimited-thing tests
* Use -- for separation from prefix
* Add hui-select-thing tests
---
ChangeLog | 9 +++
test/MANIFEST | 1 +
test/hui-select-tests.el | 147 +++++++++++++++++++++++++++++++++++++++++++++++
3 files changed, 157 insertions(+)
diff --git a/ChangeLog b/ChangeLog
index 3599ed4bcb..e0745ff6a5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2022-04-15 Mats Lidell <ma...@gnu.org>
+
+* test/MANIFEST: Add hui-select.el
+
+* test/hui-select-tests.el (hui-select--thing)
+ (hui-select--thing-interactive-prints-type-of-match)
+ (hui-select--at-delimited-thing-p) (hui-select--delimited-thing)
+ (hui-select--delimited-thing-ending-in-newline): Add hui-select tests.
+
2022-04-12 Bob Weiner <r...@gnu.org>
* hypb.el (hypb:selectable-thing): Add and use in hypb:kill-ring-save,
kotl-mode:kill-region,
diff --git a/test/MANIFEST b/test/MANIFEST
index 1812781f54..2700c67646 100644
--- a/test/MANIFEST
+++ b/test/MANIFEST
@@ -9,6 +9,7 @@ hmouse-drv-tests.el - hmouse-drv unit tests
hmouse-info-tests.el - hmouse-info unit tests
hpath-tests.el - unit tests for hpath
hsys-org-tests.el - hsys-org tests
+hui-select-tests.el - hui-select tests
hui-tests.el - Tests for hui.el
hypb-tests.el - test for hypb.el
hyperbole-tests.el - Tests for hyperbole.el
diff --git a/test/hui-select-tests.el b/test/hui-select-tests.el
new file mode 100644
index 0000000000..c8e76cfc8f
--- /dev/null
+++ b/test/hui-select-tests.el
@@ -0,0 +1,147 @@
+;;; hui-select-tests.el --- Unit tests -*- lexical-binding: t; -*-
+
+;; Author: Mats Lidell <ma...@gnu.org>
+;;
+;; Orig-Date: 14-Apr-22 at 23:45:52
+;; Last-Mod: 15-Apr-22 at 23:53:52 by Mats Lidell
+;;
+;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; See the "../HY-COPY" file for license information.
+;;
+;; This file is part of Hyperbole.
+;;
+;;; Commentary:
+;;
+;; Unit tests for "../hui-select.el"
+
+;;; Code:
+
+;;
+;;; ************************************************************************
+;;; Tests
+;;; ************************************************************************
+
+(require 'ert)
+(require 'hui-select)
+(require 'hy-test-helpers "test/hy-test-helpers")
+
+(declare-function hy-test-helpers:should-last-message "hy-test-helpers")
+
+(ert-deftest hui-select--at-delimited-thing-p ()
+ "At delimited thing p returns type of thing."
+ (with-temp-buffer
+ (insert "(\"x\") ")
+
+ ;; hui-select-sexp-start
+ (goto-char 1)
+ (should (equal (hui-select-at-delimited-thing-p) 'hui-select-sexp-start))
+
+ ;; hui-select-string
+ (goto-char 2)
+ (should (equal (hui-select-at-delimited-thing-p) 'hui-select-string))
+
+ ;; nil
+ (goto-char 3)
+ (should-not (hui-select-at-delimited-thing-p))
+
+ ;; hui-select-string
+ (goto-char 4)
+ (should (equal (hui-select-at-delimited-thing-p) 'hui-select-string))
+
+ ;; hui-select-sexp-end
+ (goto-char 5)
+ (should (equal (hui-select-at-delimited-thing-p) 'hui-select-sexp-end))))
+
+(ert-deftest hui-select--delimited-thing ()
+ "Delimited thing marks region of thing."
+ (with-temp-buffer
+ (insert "(\"x\") ")
+
+ ;; hui-select-sexp-start
+ (goto-char 1)
+ (should (hui-select-delimited-thing))
+ (should (string= (buffer-substring-no-properties (region-beginning)
(region-end)) "(\"x\")"))
+
+ ;; hui-select-string
+ (goto-char 2)
+ (should (hui-select-delimited-thing))
+ (should (string= (buffer-substring-no-properties (region-beginning)
(region-end)) "\"x\""))))
+
+
+(ert-deftest hui-select--delimited-thing-ending-in-newline ()
+ "Delimited thing marks region of thing when next char after things is a
newline."
+ (with-temp-buffer
+ (insert "(\"x\")\n")
+
+ ;; hui-select-sexp-start
+ (goto-char 1)
+ (should (hui-select-delimited-thing))
+ (should (string= (buffer-substring-no-properties (region-beginning)
(region-end)) "(\"x\")\n"))))
+
+(ert-deftest hui-select--thing ()
+ "`hui-select-thing' selects bigger sections of text when called repeatedly."
+ (hui-select-reset)
+ (with-temp-buffer
+ (insert "Buffer\n\nParagraph\nline. One word.\n")
+ (forward-char -3)
+
+ (should (hui-select-thing))
+ (should (string= (buffer-substring-no-properties (region-beginning)
(region-end)) "word"))
+
+ (should (hui-select-thing))
+ (should (string= (buffer-substring-no-properties (region-beginning)
(region-end)) "One word."))
+
+ (should (hui-select-thing))
+ (should (string= (buffer-substring-no-properties (region-beginning)
(region-end))
+ "line. One word.\n"))
+
+ (should (hui-select-thing))
+ (should (string= (buffer-substring-no-properties (region-beginning)
(region-end))
+ "\nParagraph\nline. One word.\n"))
+
+ (should (hui-select-thing))
+ (should (string= (buffer-substring-no-properties (region-beginning)
(region-end))
+ "Buffer\n\nParagraph\nline. One word.\n"))
+
+ (should-not (hui-select-thing))
+ (hy-test-helpers:should-last-message
+ "(hui-select-boundaries): ‘buffer’ is the largest selectable region")))
+
+(ert-deftest hui-select--thing-interactive-prints-type-of-match ()
+ "`hui-select-thing' selects bigger sections of text when called repeatedly.
+Verifies right type of match is printed when `hui-select-display-type' is set
to t."
+ (skip-unless (not noninteractive))
+ (let ((hui-select-display-type t))
+ (hui-select-reset)
+ (with-temp-buffer
+ (insert "Buffer\n\nParagraph\nline. One word.\n")
+ (forward-char -3)
+ (should (call-interactively 'hui-select-thing))
+ (hy-test-helpers:should-last-message "word")
+ (should (string= (buffer-substring-no-properties (region-beginning)
(region-end)) "word"))
+
+ (should (call-interactively 'hui-select-thing))
+ (hy-test-helpers:should-last-message "sentence")
+ (should (string= (buffer-substring-no-properties (region-beginning)
(region-end)) "One word."))
+
+ (should (call-interactively 'hui-select-thing))
+ (hy-test-helpers:should-last-message "line")
+ (should (string= (buffer-substring-no-properties (region-beginning)
(region-end))
+ "line. One word.\n"))
+
+ (should (call-interactively 'hui-select-thing))
+ (hy-test-helpers:should-last-message "paragraph")
+ (should (string= (buffer-substring-no-properties (region-beginning)
(region-end))
+ "\nParagraph\nline. One word.\n"))
+
+ (should (call-interactively 'hui-select-thing))
+ (hy-test-helpers:should-last-message "Buffer")
+ (should (string= (buffer-substring-no-properties (region-beginning)
(region-end))
+ "Buffer\n\nParagraph\nline. One word.\n"))
+
+ (should-not (call-interactively 'hui-select-thing))
+ (hy-test-helpers:should-last-message
+ "(hui-select-boundaries): ‘buffer’ is the largest selectable region"))))
+
+(provide 'hui-select-tests)
+;;; hui-select-tests.el ends here
