[nongnu] elpa/subed 908b1b0 176/389: Simplify tests for moving in active region

[ELPA Syncer]

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