branch: elpa/subed
commit a7cbce621b3c5818a8362cb767954d96886dc9ef
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
Test subed-move-subtitle-forward/backward more thoroughly
---
tests/test-subed.el | 84 +++++++++++++++++++++++++++++++++++++----------------
1 file changed, 59 insertions(+), 25 deletions(-)
diff --git a/tests/test-subed.el b/tests/test-subed.el
index c4ec7d0..94085fd 100644
--- a/tests/test-subed.el
+++ b/tests/test-subed.el
@@ -94,31 +94,65 @@
(subed-move-subtitle-backward 100)
(expect (subed--subtitle-msecs-start) :to-equal
orig-start)
(expect (subed--subtitle-msecs-stop) :to-equal
orig-stop)))))
- (it "adjusts subtitles in the active region."
- (with-temp-buffer
- (insert mock-srt-data)
- (let ((beg (subed-jump-to-subtitle-text 2))
- (end (subed-jump-to-subtitle-time-start 3))
- (orig-start-1 (subed--subtitle-msecs-start 1))
- (orig-stop-1 (subed--subtitle-msecs-stop 1))
- (orig-start-2 (subed--subtitle-msecs-start 2))
- (orig-stop-2 (subed--subtitle-msecs-stop 2))
- (orig-start-3 (subed--subtitle-msecs-start 3))
- (orig-stop-3 (subed--subtitle-msecs-stop 3)))
- (subed-move-subtitle-forward 100 beg end)
- (expect (subed--subtitle-msecs-start 1) :to-equal
orig-start-1)
- (expect (subed--subtitle-msecs-stop 1) :to-equal orig-stop-1)
- (expect (subed--subtitle-msecs-start 2) :to-equal (+
orig-start-2 100))
- (expect (subed--subtitle-msecs-stop 2) :to-equal (+
orig-stop-2 100))
- (expect (subed--subtitle-msecs-start 3) :to-equal (+
orig-start-3 100))
- (expect (subed--subtitle-msecs-stop 3) :to-equal (+
orig-stop-3 100))
- (subed-move-subtitle-backward 100 beg end)
- (expect (subed--subtitle-msecs-start 1) :to-equal
orig-start-1)
- (expect (subed--subtitle-msecs-stop 1) :to-equal orig-stop-1)
- (expect (subed--subtitle-msecs-start 2) :to-equal
orig-start-2)
- (expect (subed--subtitle-msecs-stop 2) :to-equal orig-stop-2)
- (expect (subed--subtitle-msecs-start 3) :to-equal
orig-start-3)
- (expect (subed--subtitle-msecs-stop 3) :to-equal
orig-stop-3))))
+ (describe "adjusts subtitles in the active region,"
+ (it "excluding the first subtitle."
+ (with-temp-buffer
+ (insert mock-srt-data)
+ (let ((beg (subed-jump-to-subtitle-text 2))
+ (end (subed-jump-to-subtitle-time-start 3))
+ (orig-start-1 (subed--subtitle-msecs-start 1))
+ (orig-stop-1 (subed--subtitle-msecs-stop 1))
+ (orig-start-2 (subed--subtitle-msecs-start 2))
+ (orig-stop-2 (subed--subtitle-msecs-stop 2))
+ (orig-start-3 (subed--subtitle-msecs-start 3))
+ (orig-stop-3 (subed--subtitle-msecs-stop 3)))
+ (spy-on 'use-region-p :and-return-value t)
+ (spy-on 'region-beginning :and-return-value beg)
+ (spy-on 'region-end :and-return-value end)
+ (subed-move-subtitle-forward 100)
+ (expect (subed--subtitle-msecs-start 1) :to-equal
orig-start-1)
+ (expect (subed--subtitle-msecs-stop 1) :to-equal
orig-stop-1)
+ (expect (subed--subtitle-msecs-start 2) :to-equal
(+ orig-start-2 100))
+ (expect (subed--subtitle-msecs-stop 2) :to-equal
(+ orig-stop-2 100))
+ (expect (subed--subtitle-msecs-start 3) :to-equal
(+ orig-start-3 100))
+ (expect (subed--subtitle-msecs-stop 3) :to-equal
(+ orig-stop-3 100))
+ (subed-move-subtitle-backward 200)
+ (expect (subed--subtitle-msecs-start 1) :to-equal
orig-start-1)
+ (expect (subed--subtitle-msecs-stop 1) :to-equal
orig-stop-1)
+ (expect (subed--subtitle-msecs-start 2) :to-equal
(- orig-start-2 100))
+ (expect (subed--subtitle-msecs-stop 2) :to-equal
(- orig-stop-2 100))
+ (expect (subed--subtitle-msecs-start 3) :to-equal
(- orig-start-3 100))
+ (expect (subed--subtitle-msecs-stop 3) :to-equal
(- orig-stop-3 100)))))
+ (it "excluding the last subtitle."
+ (with-temp-buffer
+ (insert mock-srt-data)
+ (let ((beg (subed-jump-to-subtitle-time-stop 1))
+ (end (1+ (subed-jump-to-subtitle-end 2)))
+ (orig-start-1 (subed--subtitle-msecs-start 1))
+ (orig-stop-1 (subed--subtitle-msecs-stop 1))
+ (orig-start-2 (subed--subtitle-msecs-start 2))
+ (orig-stop-2 (subed--subtitle-msecs-stop 2))
+ (orig-start-3 (subed--subtitle-msecs-start 3))
+ (orig-stop-3 (subed--subtitle-msecs-stop 3)))
+ (spy-on 'use-region-p :and-return-value t)
+ (spy-on 'region-beginning :and-return-value beg)
+ (spy-on 'region-end :and-return-value end)
+ (subed-move-subtitle-forward 100)
+ (expect (subed--subtitle-msecs-start 1) :to-equal
(+ orig-start-1 100))
+ (expect (subed--subtitle-msecs-stop 1) :to-equal
(+ orig-stop-1 100))
+ (expect (subed--subtitle-msecs-start 2) :to-equal
(+ orig-start-2 100))
+ (expect (subed--subtitle-msecs-stop 2) :to-equal
(+ orig-stop-2 100))
+ (expect (subed--subtitle-msecs-start 3) :to-equal
orig-start-3)
+ (expect (subed--subtitle-msecs-stop 3) :to-equal
orig-stop-3)
+ (subed-move-subtitle-backward 300)
+ (expect (subed--subtitle-msecs-start 1) :to-equal
(- orig-start-1 200))
+ (expect (subed--subtitle-msecs-stop 1) :to-equal
(- orig-stop-1 200))
+ (expect (subed--subtitle-msecs-start 2) :to-equal
(- orig-start-2 200))
+ (expect (subed--subtitle-msecs-stop 2) :to-equal
(- orig-stop-2 200))
+ (expect (subed--subtitle-msecs-start 3) :to-equal
orig-start-3)
+ (expect (subed--subtitle-msecs-stop 3) :to-equal
orig-stop-3)
+ )))
+ )
)
(describe "Syncing player to point"
