[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/subed f7c04d2 167/389: Fix tests for inserting subtitle(s)
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/subed f7c04d2 167/389: Fix tests for inserting subtitle(s) |
Date: |
Fri, 3 Dec 2021 11:00:19 -0500 (EST) |
branch: elpa/subed
commit f7c04d253049e7af9f329e9835af55fcee768b8e
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>
Fix tests for inserting subtitle(s)
---
tests/test-subed-srt.el | 71 +++++++++++++++++++++++++++----------------------
1 file changed, 39 insertions(+), 32 deletions(-)
diff --git a/tests/test-subed-srt.el b/tests/test-subed-srt.el
index 6e8aa44..056628c 100644
--- a/tests/test-subed-srt.el
+++ b/tests/test-subed-srt.el
@@ -863,22 +863,24 @@ Baz.
)
(describe "Inserting"
+ (before-each
+ (spy-on 'subed-srt--regenerate-ids-soon))
(describe "in an empty buffer,"
(describe "appending"
(it "a single subtile."
(cl-loop for arg in (list nil 1) do
(with-temp-buffer
(subed-srt--subtitle-insert arg)
- (expect (buffer-string) :to-equal
(concat "1\n"
+ (expect (buffer-string) :to-equal
(concat "0\n"
"00:00:00,100 --> 00:00:00,900\n\n"))
(expect (point) :to-equal 33))))
(it "multiple subtiles."
(cl-loop for arg in (list 2) do
(with-temp-buffer
(subed-srt--subtitle-insert arg)
- (expect (buffer-string) :to-equal
(concat "1\n"
+ (expect (buffer-string) :to-equal
(concat "0\n"
"00:00:00,100 --> 00:00:00,950\n\n\n"
-
"2\n"
+
"0\n"
"00:00:01,050 --> 00:00:01,900\n\n"))
(expect (point) :to-equal 33)))))
(describe "prepending"
@@ -886,16 +888,16 @@ Baz.
(cl-loop for arg in (list '- -1 (list 4)) do
(with-temp-buffer
(subed-srt--subtitle-insert arg)
- (expect (buffer-string) :to-equal
(concat "1\n"
+ (expect (buffer-string) :to-equal
(concat "0\n"
"00:00:00,100 --> 00:00:00,900\n\n"))
(expect (point) :to-equal 33))))
(it "multiple subtiles."
(cl-loop for arg in (list -2 (list -16)) do
(with-temp-buffer
(subed-srt--subtitle-insert arg)
- (expect (buffer-string) :to-equal
(concat "1\n"
+ (expect (buffer-string) :to-equal
(concat "0\n"
"00:00:00,100 --> 00:00:00,950\n\n\n"
-
"2\n"
+
"0\n"
"00:00:01,050 --> 00:00:01,900\n\n"))
(expect (point) :to-equal 33)))))
)
@@ -910,13 +912,13 @@ Baz.
(expect (buffer-string) :to-equal
(concat "1\n"
"00:01:01,000 --> 00:01:05,123\n"
"Foo.\n\n"
-
"2\n"
+
"0\n"
"00:01:05,223 --> 00:02:02,134\n"
"\n\n"
-
"3\n"
+
"2\n"
"00:02:02,234 --> 00:02:10,345\n"
"Bar.\n\n"
-
"4\n"
+
"3\n"
"00:03:03,45 --> 00:03:15,5\n"
"Baz.\n"))
(expect (point) :to-equal 71))))
@@ -929,16 +931,16 @@ Baz.
(expect (buffer-string) :to-equal
(concat "1\n"
"00:01:01,000 --> 00:01:05,123\n"
"Foo.\n\n"
-
"2\n"
+
"0\n"
"00:01:05,223 --> 00:01:33,628\n"
"\n\n"
-
"3\n"
+
"0\n"
"00:01:33,728 --> 00:02:02,133\n"
"\n\n"
-
"4\n"
+
"2\n"
"00:02:02,234 --> 00:02:10,345\n"
"Bar.\n\n"
-
"5\n"
+
"3\n"
"00:03:03,45 --> 00:03:15,5\n"
"Baz.\n"))
(expect (point) :to-equal 71))))
@@ -953,13 +955,13 @@ Baz.
(expect (buffer-string) :to-equal
(concat "1\n"
"00:01:01,000 --> 00:01:05,123\n"
"Foo.\n\n"
-
"2\n"
+
"0\n"
"00:01:05,223 --> 00:02:02,134\n"
"\n\n"
-
"3\n"
+
"2\n"
"00:02:02,234 --> 00:02:10,345\n"
"Bar.\n\n"
-
"4\n"
+
"3\n"
"00:03:03,45 --> 00:03:15,5\n"
"Baz.\n"))
(expect (point) :to-equal 71))))
@@ -972,16 +974,16 @@ Baz.
(expect (buffer-string) :to-equal
(concat "1\n"
"00:01:01,000 --> 00:01:05,123\n"
"Foo.\n\n"
-
"2\n"
+
"0\n"
"00:01:05,223 --> 00:01:33,628\n"
"\n\n"
-
"3\n"
+
"0\n"
"00:01:33,728 --> 00:02:02,133\n"
"\n\n"
-
"4\n"
+
"2\n"
"00:02:02,234 --> 00:02:10,345\n"
"Bar.\n\n"
-
"5\n"
+
"3\n"
"00:03:03,45 --> 00:03:15,5\n"
"Baz.\n"))
(expect (point) :to-equal 71))))
@@ -993,16 +995,16 @@ Baz.
(insert mock-srt-data)
(subed-srt--jump-to-subtitle-text
1)
(subed-srt--subtitle-insert arg)
- (expect (buffer-string) :to-equal
(concat "1\n"
+ (expect (buffer-string) :to-equal
(concat "0\n"
"00:00:00,100 --> 00:01:00,900\n"
"\n\n"
-
"2\n"
+
"1\n"
"00:01:01,000 --> 00:01:05,123\n"
"Foo.\n\n"
-
"3\n"
+
"2\n"
"00:02:02,234 --> 00:02:10,345\n"
"Bar.\n\n"
-
"4\n"
+
"3\n"
"00:03:03,45 --> 00:03:15,5\n"
"Baz.\n"))
(expect (point) :to-equal 33))))
@@ -1012,19 +1014,19 @@ Baz.
(insert mock-srt-data)
(subed-srt--jump-to-subtitle-text
1)
(subed-srt--subtitle-insert arg)
- (expect (buffer-string) :to-equal
(concat "1\n"
+ (expect (buffer-string) :to-equal
(concat "0\n"
"00:00:00,100 --> 00:00:30,450\n"
"\n\n"
-
"2\n"
+
"0\n"
"00:00:30,550 --> 00:01:00,900\n"
"\n\n"
-
"3\n"
+
"1\n"
"00:01:01,000 --> 00:01:05,123\n"
"Foo.\n\n"
-
"4\n"
+
"2\n"
"00:02:02,234 --> 00:02:10,345\n"
"Bar.\n\n"
-
"5\n"
+
"3\n"
"00:03:03,45 --> 00:03:15,5\n"
"Baz.\n"))
(expect (point) :to-equal 33))))
@@ -1045,7 +1047,7 @@ Baz.
"3\n"
"00:03:03,45 --> 00:03:15,5\n"
"Baz.\n\n"
-
"4\n"
+
"0\n"
"00:03:15,600 --> 00:03:16,400\n"
"\n"))
(expect (point) :to-equal 144))))
@@ -1064,15 +1066,20 @@ Baz.
"3\n"
"00:03:03,45 --> 00:03:15,5\n"
"Baz.\n\n"
-
"4\n"
+
"0\n"
"00:03:15,600 --> 00:03:16,450\n"
"\n\n"
-
"5\n"
+
"0\n"
"00:03:16,550 --> 00:03:17,400\n"
"\n"))
(expect (point) :to-equal 144))))
)
)
+ (it "schedules ID regeneration."
+ (with-temp-buffer
+ (subed-srt--subtitle-insert)
+ (expect #'subed-srt--regenerate-ids-soon
:to-have-been-called-times 1)
+ (expect #'subed-srt--regenerate-ids :not
:to-have-been-called)))
)
(describe "Validating"
- [nongnu] elpa/subed 239deaf 246/389: subed-copy-player-pos-to-start/stop-time: Use generic functions, (continued)
- [nongnu] elpa/subed 239deaf 246/389: subed-copy-player-pos-to-start/stop-time: Use generic functions, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 0924465 261/389: subed-srt--prepend-subtitle: Fix docstring, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed f62fdb9 263/389: Remove empty line, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed ce6bf04 271/389: Point to subed-mode docstring in "Installation", ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 464d0cb 284/389: Add defcustom: subed-enforce-time-boundaries, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed a1c66c5 116/389: Make if clause easier to grasp, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed f31424e 115/389: Show message when enabling/disable features manually, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed b30293d 120/389: subed--replay-adjusted-subtitle: Fix docstring, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 34caefb 117/389: Explain usage of prefix argument when adjusting/moving, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed b1cb470 134/389: Deduplicate code by adding subed-move-subtitles function, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed f7c04d2 167/389: Fix tests for inserting subtitle(s),
ELPA Syncer <=
- [nongnu] elpa/subed c1ee129 181/389: Add functions to adjust start/stop timestamps to player's ones, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 9bf3fcc 213/389: Make timestamp adjustment limitations generic, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 6fd0468 193/389: Use (defalias ...) instead of (fset ...), ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed af4d876 211/389: use emacs 25 for e.g. alist-get, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 9bc42c6 192/389: arg instead of (not (eq nil arg)), ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 7b5c5e0 205/389: Add/Fix tests for moving subtitles, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 3b69f02 225/389: Simplify basic test for moving subtitle, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed b6e484f 204/389: Move subtitles in active region as a unit, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 07a3774 218/389: Add generic function subed-subtitle-id-max, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 80a2545 223/389: Reduce LOC, ELPA Syncer, 2021/12/03