[nongnu] elpa/subed fb9354c 039/389: Adjust tests for subed-srt-move-to-subtitle-end

[ELPA Syncer]

branch: elpa/subed
commit fb9354c233595e73a9eb776e14c0b087b06733f2
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>

    Adjust tests for subed-srt-move-to-subtitle-end
---
 tests/test-subed-srt.el | 32 ++++++++++++++++++--------------
 1 file changed, 18 insertions(+), 14 deletions(-)

diff --git a/tests/test-subed-srt.el b/tests/test-subed-srt.el
index 6a194ba..ecd1160 100644
--- a/tests/test-subed-srt.el
+++ b/tests/test-subed-srt.el
@@ -316,7 +316,7 @@ Baz.
                           (expect (subed-srt-move-to-subtitle-time-stop) 
:to-equal nil)))
                     )
           (describe "to end of subtitle text"
-                    (it "returns point if movement was successful."
+                    (it "returns point if subtitle end can be found."
                         (with-temp-buffer
                           (insert mock-srt-data)
                           (goto-char (point-min))
@@ -332,22 +332,34 @@ Baz.
                           (backward-char 2)
                           (expect (subed-srt-move-to-subtitle-end) :to-be 113)
                           (expect (looking-back "^Baz.$") :to-be t)))
-                    (it "returns point if subtitle text is empty with trailing 
newline."
+                    (it "returns nil if subtitle end cannot be found."
+                        (with-temp-buffer
+                          (expect (subed-srt-move-to-subtitle-end) :to-be 
nil)))
+                    (it "returns nil if point did not move."
                         (with-temp-buffer
                           (insert mock-srt-data)
                           (subed-srt-move-to-subtitle-text 1)
                           (kill-line)
-                          (expect (subed-srt-move-to-subtitle-end) :to-be nil)
+                          (expect (subed-srt-move-to-subtitle-end) :to-be 
nil)))
+                    (it "works if text is empty with trailing newline."
+                        (with-temp-buffer
+                          (insert mock-srt-data)
+                          (subed-srt-move-to-subtitle-text 1)
+                          (kill-line)
+                          (backward-char)
+                          (expect (subed-srt-move-to-subtitle-end) :to-be 33)
                           (expect (looking-at "^$") :to-be t)
                           (subed-srt-move-to-subtitle-text 2)
                           (kill-line)
-                          (expect (subed-srt-move-to-subtitle-end) :to-be nil)
+                          (backward-char)
+                          (expect (subed-srt-move-to-subtitle-end) :to-be 67)
                           (expect (looking-at "^$") :to-be t)
                           (subed-srt-move-to-subtitle-text 3)
                           (kill-line)
-                          (expect (subed-srt-move-to-subtitle-end) :to-be nil)
+                          (backward-char)
+                          (expect (subed-srt-move-to-subtitle-end) :to-be 101)
                           (expect (looking-at "^$") :to-be t)))
-                    (it "returns point if subtitle text is empty without 
trailing newline."
+                    (it "works if text is empty without trailing newline."
                         (with-temp-buffer
                           (insert mock-srt-data)
                           (subed-srt-move-to-subtitle-text 1)
@@ -357,14 +369,6 @@ Baz.
                           (goto-char (point-min))
                           (expect (subed-srt-move-to-subtitle-end) :to-be 33)
                           (expect (looking-at "^$") :to-be t)))
-                    (it "returns nil if movement failed."
-                        (with-temp-buffer
-                          (insert mock-srt-data)
-                          (goto-char (point-max))
-                          (expect (subed-srt-move-to-subtitle-end) :to-be 113)
-                          (expect (looking-back "^Baz.$") :to-be t)
-                          (expect (subed-srt-move-to-subtitle-end) :to-be nil)
-                          (expect (looking-back "^Baz.$") :to-be t)))
                     )
           (describe "to next subtitle ID"
                     (it "returns point when there is a next subtitle."