[nongnu] elpa/subed f832a1d 075/389: Add more tests for subed-srt-move-to-subtitle-end

[ELPA Syncer]

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

    Add more tests for subed-srt-move-to-subtitle-end
---
 tests/test-subed-srt.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/tests/test-subed-srt.el b/tests/test-subed-srt.el
index 46aebbf..1fe3cf7 100644
--- a/tests/test-subed-srt.el
+++ b/tests/test-subed-srt.el
@@ -376,6 +376,20 @@ Baz.
                           (expect (looking-at "^$") :to-be t)
                           (goto-char (point-min))
                           (expect (subed-srt-move-to-subtitle-end) :to-be 33)
+                          (expect (looking-at "^$") :to-be t)
+                          (subed-srt-move-to-subtitle-text 2)
+                          (kill-whole-line)
+                          (expect (subed-srt-move-to-subtitle-end) :to-be nil)
+                          (expect (looking-at "^$") :to-be t)
+                          (backward-char)
+                          (expect (subed-srt-move-to-subtitle-end) :to-be 66)
+                          (expect (looking-at "^$") :to-be t)
+                          (subed-srt-move-to-subtitle-text 3)
+                          (kill-whole-line)
+                          (expect (subed-srt-move-to-subtitle-end) :to-be nil)
+                          (expect (looking-at "^$") :to-be t)
+                          (backward-char)
+                          (expect (subed-srt-move-to-subtitle-end) :to-be 99)
                           (expect (looking-at "^$") :to-be t)))
                     )
           (describe "to next subtitle ID"