[nongnu] elpa/subed 86914b4 053/389: Add more tests for moving to next/previous subtitle ID

[ELPA Syncer]

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

    Add more tests for moving to next/previous subtitle ID
---
 tests/test-subed-srt.el | 37 +++++++++++++++++++++++++++++++++----
 1 file changed, 33 insertions(+), 4 deletions(-)

diff --git a/tests/test-subed-srt.el b/tests/test-subed-srt.el
index 5d9b02f..044054e 100644
--- a/tests/test-subed-srt.el
+++ b/tests/test-subed-srt.el
@@ -374,17 +374,40 @@ Baz.
                     (it "returns point when there is a next subtitle."
                         (with-temp-buffer
                           (insert mock-srt-data)
-                          (subed-srt-move-to-subtitle-id 2)
+                          (subed-srt-move-to-subtitle-id 1)
+                          (expect (thing-at-point 'word) :to-equal "1")
+                          (expect (subed-srt-forward-subtitle-id) :to-be 39)
                           (expect (thing-at-point 'word) :to-equal "2")
+                          (subed-srt-move-to-subtitle-time-start 2)
+                          (expect (thing-at-point 'word) :to-equal "00")
                           (expect (subed-srt-forward-subtitle-id) :to-be 77)
                           (expect (thing-at-point 'word) :to-equal "3")))
                     (it "returns nil and doesn't move when there is no next 
subtitle."
                         (with-temp-buffer
-                          (insert (concat mock-srt-data "\n\n"))
+                          (expect (thing-at-point 'word) :to-equal nil)
+                          (expect (subed-srt-forward-subtitle-id) :to-be nil))
+                        (with-temp-buffer
+                          (insert (concat mock-srt-data))
+                          (subed-srt-move-to-subtitle-text 1)
+                          (expect (thing-at-point 'word) :to-equal "Foo")
+                          (expect (subed-srt-forward-subtitle-id) :to-be 39)
+                          (expect (thing-at-point 'word) :to-equal "2")
+                          (subed-srt-move-to-subtitle-time-stop 2)
+                          (expect (thing-at-point 'word) :to-equal "00")
+                          (expect (subed-srt-forward-subtitle-id) :to-be 77)
+                          (expect (thing-at-point 'word) :to-equal "3"))
+                        (with-temp-buffer
+                          (insert (concat mock-srt-data))
                           (subed-srt-move-to-subtitle-text 3)
                           (expect (thing-at-point 'word) :to-equal "Baz")
                           (expect (subed-srt-forward-subtitle-id) :to-be nil)
-                          (expect (thing-at-point 'word) :to-equal "Baz")))
+                          (expect (thing-at-point 'word) :to-equal "Baz"))
+                        (with-temp-buffer
+                          (insert (concat mock-srt-data "\n\n"))
+                          (subed-srt-move-to-subtitle-time-stop 3)
+                          (expect (thing-at-point 'word) :to-equal "00")
+                          (expect (subed-srt-forward-subtitle-id) :to-be nil)
+                          (expect (thing-at-point 'word) :to-equal "00")))
                     )
           (describe "to previous subtitle ID"
                     (it "returns point when there is a previous subtitle."
@@ -412,7 +435,13 @@ Baz.
                           (subed-srt-move-to-subtitle-text 1)
                           (expect (thing-at-point 'word) :to-equal "Foo")
                           (expect (subed-srt-backward-subtitle-id) :to-be nil)
-                          (expect (thing-at-point 'word) :to-equal "Foo")))
+                          (expect (thing-at-point 'word) :to-equal "Foo"))
+                        (with-temp-buffer
+                          (insert (concat "\n\n\n" mock-srt-data))
+                          (subed-srt-move-to-subtitle-time-stop 1)
+                          (expect (thing-at-point 'word) :to-equal "00")
+                          (expect (subed-srt-backward-subtitle-id) :to-be nil)
+                          (expect (thing-at-point 'word) :to-equal "00")))
                     )
           (describe "to next subtitle text"
                     (it "returns point when there is a next subtitle."