branch: elpa/subed
commit fd7c2bae2735dbda85684e4e8e6fd04cfc23edc8
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
Add tests for getting relative point within subtitle
---
tests/test-subed-srt.el | 23 +++++++++++++++++++++++
1 file changed, 23 insertions(+)
diff --git a/tests/test-subed-srt.el b/tests/test-subed-srt.el
index 94a7d3b..0a7f5f5 100644
--- a/tests/test-subed-srt.el
+++ b/tests/test-subed-srt.el
@@ -102,6 +102,29 @@ Baz.
(expect (subed-srt--subtitle-msecs-start) :to-be nil)
(expect (subed-srt--subtitle-msecs-stop) :to-be
nil)))
)
+ (describe "the point within the subtitle"
+ (it "returns the relative point if we can find an ID."
+ (with-temp-buffer
+ (insert mock-srt-data)
+ (subed-srt-move-to-subtitle-id 2)
+ (expect (subed-srt--subtitle-relative-point)
:to-equal 0)
+ (forward-line)
+ (expect (subed-srt--subtitle-relative-point)
:to-equal 2)
+ (forward-line)
+ (expect (subed-srt--subtitle-relative-point)
:to-equal 32)
+ (forward-char)
+ (expect (subed-srt--subtitle-relative-point)
:to-equal 33)
+ (forward-line)
+ (expect (subed-srt--subtitle-relative-point)
:to-equal 37)
+ (forward-line)
+ (expect (subed-srt--subtitle-relative-point)
:to-equal 0)))
+ (it "returns nil if we can't find an ID."
+ (with-temp-buffer
+ (insert mock-srt-data)
+ (subed-srt-move-to-subtitle-id 1)
+ (insert "foo")
+ (expect (subed-srt--subtitle-relative-point)
:to-equal nil)))
+ )
)
