[elpa] externals/compat c5ad182569 2/4: compat-tests: Fix compat-thing-at-mouse test

[ELPA Syncer]

branch: externals/compat
commit c5ad18256926808f99a2d13dd36429229af777d7
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    compat-tests: Fix compat-thing-at-mouse test
---
 compat-tests.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 443e43d2a3..fe1c723052 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -140,15 +140,15 @@
         (insert "https://emacs.org/";)
         (goto-char (point-min))
         (should-equal "https://emacs.org/"; (thing-at-mouse event 'url))
-        (should-equal '(1 . 18) (bounds-of-thing-at-mouse event 'url))
+        (should-equal '(1 . 19) (bounds-of-thing-at-mouse event 'url))
         (should-not (region-active-p))
         (mark-thing-at-mouse event 'url)
-        (should-equal (point) 18)
-        (should-equal '((1 . 18)) (region-bounds))
+        (should-equal (point) 19)
+        (should-equal '((1 . 19)) (region-bounds))
         (let ((mouse-select-region-move-to-beginning t))
           (mark-thing-at-mouse event 'url))
         (should-equal (point) 1)
-        (should-equal '((1 . 18)) (region-bounds))))))
+        (should-equal '((1 . 19)) (region-bounds))))))
 
 (ert-deftest compat-dolist-with-progress-reporter ()
   (let (y)