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))
