branch: elpa/subed
commit ac4bc87e034a73a16bc82ec6e7c044f40aefdee1
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
Add more tests for moving to subtitle ID
---
tests/test-subed-srt.el | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/tests/test-subed-srt.el b/tests/test-subed-srt.el
index 702cbaa..1ed18d3 100644
--- a/tests/test-subed-srt.el
+++ b/tests/test-subed-srt.el
@@ -163,6 +163,21 @@ Baz.
(with-temp-buffer
(expect (buffer-string) :to-equal "")
(expect (subed-srt-move-to-subtitle-id) :to-equal
nil)))
+ (it "returns ID's point when buffer starts with blank
lines."
+ (with-temp-buffer
+ (insert (concat " \n \t \n" mock-srt-data))
+ (search-backward "Foo.")
+ (expect (thing-at-point 'line) :to-equal "Foo.\n")
+ (expect (subed-srt-move-to-subtitle-id) :to-equal 7)
+ (expect (thing-at-point 'word) :to-equal "1")))
+ (it "returns ID's point when subtitles are separated with
blank lines."
+ (with-temp-buffer
+ (insert mock-srt-data)
+ (goto-char (point-min))
+ (search-forward "Foo.\n")
+ (insert " \n \t \n")
+ (expect (subed-srt-move-to-subtitle-id) :to-equal 1)
+ (expect (thing-at-point 'word) :to-equal "1")))
)
(describe "to specific subtitle ID"
(it "returns ID's point if wanted ID exists."
