[nongnu] elpa/subed 7d4caaa 018/389: Move time adjustment tests

[ELPA Syncer]

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

    Move time adjustment tests
---
 tests/test-subed-srt.el | 88 ++++++++++++++++++++++++-------------------------
 1 file changed, 44 insertions(+), 44 deletions(-)

diff --git a/tests/test-subed-srt.el b/tests/test-subed-srt.el
index 0a7f5f5..c251d2c 100644
--- a/tests/test-subed-srt.el
+++ b/tests/test-subed-srt.el
@@ -128,50 +128,6 @@ Baz.
           )
 
 
-(describe "Adjusting subtitle start/stop time"
-          :var (subed-subtitle-time-adjusted-hook)
-          (it "runs the appropriate hook."
-              (let ((foo (setf (symbol-function 'foo) (lambda (sub-id msecs) 
()))))
-                (spy-on 'foo)
-                (add-hook 'subed-subtitle-time-adjusted-hook 'foo)
-                (with-temp-buffer
-                  (insert mock-srt-data)
-                  (subed-srt-increase-start-time-100ms)
-                  (expect 'foo :to-have-been-called-with 3 183556)
-                  (expect 'foo :to-have-been-called-times 1)
-                  (subed-srt-move-to-subtitle-id 1)
-                  (subed-srt-increase-stop-time-100ms)
-                  (expect 'foo :to-have-been-called-with 1 65223)
-                  (expect 'foo :to-have-been-called-times 2)
-                  (subed-srt-move-to-subtitle-end 2)
-                  (subed-srt-decrease-start-time-100ms)
-                  (expect 'foo :to-have-been-called-with 2 122134)
-                  (expect 'foo :to-have-been-called-times 3)
-                  (subed-srt-move-to-subtitle-text 3)
-                  (subed-srt-decrease-stop-time-100ms)
-                  (expect 'foo :to-have-been-called-with 3 195467)
-                  (expect 'foo :to-have-been-called-times 4))))
-          (it "adjusts the start/stop time."
-              (with-temp-buffer
-                (insert mock-srt-data)
-                (subed-srt-move-to-subtitle-id 1)
-                (subed-srt-increase-start-time-100ms)
-                (expect (save-excursion (subed-srt-move-to-subtitle-time-start)
-                                        (thing-at-point 'line)) :to-equal 
"00:01:01,100 --> 00:01:05,123\n")
-                (subed-srt-decrease-start-time-100ms)
-                (subed-srt-decrease-start-time-100ms)
-                (expect (save-excursion (subed-srt-move-to-subtitle-time-start)
-                                        (thing-at-point 'line)) :to-equal 
"00:01:00,900 --> 00:01:05,123\n")
-                (subed-srt-increase-stop-time-100ms)
-                (subed-srt-increase-stop-time-100ms)
-                (expect (save-excursion (subed-srt-move-to-subtitle-time-start)
-                                        (thing-at-point 'line)) :to-equal 
"00:01:00,900 --> 00:01:05,323\n")
-                (subed-srt-decrease-stop-time-100ms)
-                (expect (save-excursion (subed-srt-move-to-subtitle-time-start)
-                                        (thing-at-point 'line)) :to-equal 
"00:01:00,900 --> 00:01:05,223\n")))
-          )
-
-
 (describe "Moving"
           (describe "to current subtitle ID"
                     (it "returns ID's point when point is already on the ID."
@@ -348,6 +304,50 @@ Baz.
           )
 
 
+(describe "Adjusting subtitle start/stop time"
+          :var (subed-subtitle-time-adjusted-hook)
+          (it "runs the appropriate hook."
+              (let ((foo (setf (symbol-function 'foo) (lambda (sub-id msecs) 
()))))
+                (spy-on 'foo)
+                (add-hook 'subed-subtitle-time-adjusted-hook 'foo)
+                (with-temp-buffer
+                  (insert mock-srt-data)
+                  (subed-srt-increase-start-time-100ms)
+                  (expect 'foo :to-have-been-called-with 3 183556)
+                  (expect 'foo :to-have-been-called-times 1)
+                  (subed-srt-move-to-subtitle-id 1)
+                  (subed-srt-increase-stop-time-100ms)
+                  (expect 'foo :to-have-been-called-with 1 65223)
+                  (expect 'foo :to-have-been-called-times 2)
+                  (subed-srt-move-to-subtitle-end 2)
+                  (subed-srt-decrease-start-time-100ms)
+                  (expect 'foo :to-have-been-called-with 2 122134)
+                  (expect 'foo :to-have-been-called-times 3)
+                  (subed-srt-move-to-subtitle-text 3)
+                  (subed-srt-decrease-stop-time-100ms)
+                  (expect 'foo :to-have-been-called-with 3 195467)
+                  (expect 'foo :to-have-been-called-times 4))))
+          (it "adjusts the start/stop time."
+              (with-temp-buffer
+                (insert mock-srt-data)
+                (subed-srt-move-to-subtitle-id 1)
+                (subed-srt-increase-start-time-100ms)
+                (expect (save-excursion (subed-srt-move-to-subtitle-time-start)
+                                        (thing-at-point 'line)) :to-equal 
"00:01:01,100 --> 00:01:05,123\n")
+                (subed-srt-decrease-start-time-100ms)
+                (subed-srt-decrease-start-time-100ms)
+                (expect (save-excursion (subed-srt-move-to-subtitle-time-start)
+                                        (thing-at-point 'line)) :to-equal 
"00:01:00,900 --> 00:01:05,123\n")
+                (subed-srt-increase-stop-time-100ms)
+                (subed-srt-increase-stop-time-100ms)
+                (expect (save-excursion (subed-srt-move-to-subtitle-time-start)
+                                        (thing-at-point 'line)) :to-equal 
"00:01:00,900 --> 00:01:05,323\n")
+                (subed-srt-decrease-stop-time-100ms)
+                (expect (save-excursion (subed-srt-move-to-subtitle-time-start)
+                                        (thing-at-point 'line)) :to-equal 
"00:01:00,900 --> 00:01:05,223\n")))
+          )
+
+
 (describe "Killing a subtitle"
           (it "removes it when it is the first one."
               (with-temp-buffer