branch: elpa/subed commit 908b1b00ff4c598e19272c307ce362abb24b7f4a Author: Random User <rnd...@posteo.de> Commit: Random User <rnd...@posteo.de>
Simplify tests for moving in active region --- tests/test-subed.el | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) diff --git a/tests/test-subed.el b/tests/test-subed.el index 17e0a8c..2adfd40 100644 --- a/tests/test-subed.el +++ b/tests/test-subed.el @@ -150,17 +150,15 @@ (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)) + (let ((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) + (spy-on 'region-beginning :and-return-value (subed-jump-to-subtitle-text 2)) + (spy-on 'region-end :and-return-value (subed-jump-to-subtitle-time-start 3)) (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) @@ -178,17 +176,15 @@ (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)) + (let ((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) + (spy-on 'region-beginning :and-return-value (subed-jump-to-subtitle-time-stop 1)) + (spy-on 'region-end :and-return-value (subed-jump-to-subtitle-end 2)) (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))