branch: elpa/subed
commit f832a1d09d8cf37d64bf754625c42b0828f6a99c
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@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"
