[nongnu] elpa/subed fd7c2ba 017/389: Add tests for getting relative point within subtitle

[ELPA Syncer]

branch: elpa/subed
commit fd7c2bae2735dbda85684e4e8e6fd04cfc23edc8
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@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)))
+                    )
           )