[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/subed 1ef2dbb 245/389: Add more tests for inserting subtit
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/subed 1ef2dbb 245/389: Add more tests for inserting subtitles adjacent with restricted space |
Date: |
Fri, 3 Dec 2021 11:00:34 -0500 (EST) |
branch: elpa/subed
commit 1ef2dbb299dadbd62602a1286f24bd81a4912f5a
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>
Add more tests for inserting subtitles adjacent with restricted space
---
tests/test-subed.el | 146 +++++++++++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 145 insertions(+), 1 deletion(-)
diff --git a/tests/test-subed.el b/tests/test-subed.el
index 9c25e02..b98209f 100644
--- a/tests/test-subed.el
+++ b/tests/test-subed.el
@@ -1710,7 +1710,151 @@
)
)
)
-
+ (describe "when there is not enough time for spacing"
+ (describe "between subtitles"
+ (describe "when prepending"
+ (it "a single subtitle."
+ (cl-loop for arg in (list '- -1 (list 4)) do
+ (with-temp-buffer
+ (insert (concat "1\n"
+ "00:00:59,000 --> 00:01:00,000\n"
+ "Foo.\n\n"
+ "2\n"
+ "00:01:00,005 --> 00:01:05,000\n"
+ "Bar.\n"))
+ (subed-srt--jump-to-subtitle-text 2)
+ (expect (subed-insert-subtitle-adjacent arg) :to-equal
71)
+ (expect (buffer-string) :to-equal (concat "1\n"
+ "00:00:59,000
--> 00:01:00,000\n"
+ "Foo.\n\n"
+ "0\n"
+ "00:01:00,005
--> 00:01:00,005\n"
+ "\n\n"
+ "2\n"
+ "00:01:00,005
--> 00:01:05,000\n"
+ "Bar.\n"))
+ (expect (point) :to-equal 71)
+ (expect 'subed-regenerate-ids-soon
:to-have-been-called-times 1)
+ (spy-calls-reset 'subed-regenerate-ids-soon))))
+ (it "multiple subtitles."
+ (cl-loop for arg in (list -2 (list 16)) do
+ (with-temp-buffer
+ (insert (concat "1\n"
+ "00:00:59,000 --> 00:01:00,000\n"
+ "Foo.\n\n"
+ "2\n"
+ "00:01:00,025 --> 00:01:05,000\n"
+ "Bar.\n"))
+ (subed-srt--jump-to-subtitle-text 2)
+ (expect (subed-insert-subtitle-adjacent arg) :to-equal
71)
+ (expect (buffer-string) :to-equal (concat "1\n"
+ "00:00:59,000
--> 00:01:00,000\n"
+ "Foo.\n\n"
+ "0\n"
+ "00:01:00,025
--> 00:01:00,025\n"
+ "\n\n"
+ "0\n"
+ "00:01:00,025
--> 00:01:00,025\n"
+ "\n\n"
+ "2\n"
+ "00:01:00,025
--> 00:01:05,000\n"
+ "Bar.\n"))
+ (expect (point) :to-equal 71)
+ (expect 'subed-regenerate-ids-soon
:to-have-been-called-times 1)
+ (spy-calls-reset 'subed-regenerate-ids-soon))))
+ )
+ (describe "when appending"
+ (it "a single subtitle."
+ (cl-loop for arg in (list nil 1) do
+ (with-temp-buffer
+ (insert (concat "1\n"
+ "00:00:59,000 --> 00:01:00,000\n"
+ "Foo.\n\n"
+ "2\n"
+ "00:01:00,099 --> 00:01:05,000\n"
+ "Bar.\n"))
+ (subed-srt--jump-to-subtitle-text 1)
+ (expect (subed-insert-subtitle-adjacent arg) :to-equal
71)
+ (expect (buffer-string) :to-equal (concat "1\n"
+ "00:00:59,000
--> 00:01:00,000\n"
+ "Foo.\n\n"
+ "0\n"
+ "00:01:00,000
--> 00:01:00,000\n"
+ "\n\n"
+ "2\n"
+ "00:01:00,099
--> 00:01:05,000\n"
+ "Bar.\n"))
+ (expect (point) :to-equal 71)
+ (expect 'subed-regenerate-ids-soon
:to-have-been-called-times 1)
+ (spy-calls-reset 'subed-regenerate-ids-soon))))
+ (it "multiple subtitles."
+ (cl-loop for arg in (list 2) do
+ (with-temp-buffer
+ (insert (concat "1\n"
+ "00:00:59,000 --> 00:01:00,000\n"
+ "Foo.\n\n"
+ "2\n"
+ "00:01:00,075 --> 00:01:05,000\n"
+ "Bar.\n"))
+ (subed-srt--jump-to-subtitle-text 1)
+ (expect (subed-insert-subtitle-adjacent arg) :to-equal
71)
+ (expect (buffer-string) :to-equal (concat "1\n"
+ "00:00:59,000
--> 00:01:00,000\n"
+ "Foo.\n\n"
+ "0\n"
+ "00:01:00,000
--> 00:01:00,000\n"
+ "\n\n"
+ "0\n"
+ "00:01:00,000
--> 00:01:00,000\n"
+ "\n\n"
+ "2\n"
+ "00:01:00,075
--> 00:01:05,000\n"
+ "Bar.\n"))
+ (expect (point) :to-equal 71)
+ (expect 'subed-regenerate-ids-soon
:to-have-been-called-times 1)
+ (spy-calls-reset 'subed-regenerate-ids-soon))))
+ )
+ )
+ (describe "before the first subtitle"
+ (it "a single subtitle."
+ (cl-loop for arg in (list '- -1 (list 4)) do
+ (with-temp-buffer
+ (insert (concat "1\n"
+ "00:00:00,040 --> 00:00:05,000\n"
+ "Foo.\n"))
+ (subed-srt--jump-to-subtitle-text 1)
+ (expect (subed-insert-subtitle-adjacent arg) :to-equal 33)
+ (expect (buffer-string) :to-equal (concat "0\n"
+ "00:00:00,040
--> 00:00:00,040\n"
+ "\n\n"
+ "1\n"
+ "00:00:00,040
--> 00:00:05,000\n"
+ "Foo.\n"))
+ (expect (point) :to-equal 33)
+ (expect 'subed-regenerate-ids-soon
:to-have-been-called-times 1)
+ (spy-calls-reset 'subed-regenerate-ids-soon))))
+ (it "multiple subtitles."
+ (cl-loop for arg in (list -2 (list 16)) do
+ (with-temp-buffer
+ (insert (concat "1\n"
+ "00:00:00,024 --> 00:00:05,000\n"
+ "Foo.\n"))
+ (subed-srt--jump-to-subtitle-text 1)
+ (expect (subed-insert-subtitle-adjacent arg) :to-equal 33)
+ (expect (buffer-string) :to-equal (concat "0\n"
+ "00:00:00,024
--> 00:00:00,024\n"
+ "\n\n"
+ "0\n"
+ "00:00:00,024
--> 00:00:00,024\n"
+ "\n\n"
+ "1\n"
+ "00:00:00,024
--> 00:00:05,000\n"
+ "Foo.\n"))
+ (expect (point) :to-equal 33)
+ (expect 'subed-regenerate-ids-soon
:to-have-been-called-times 1)
+ (spy-calls-reset 'subed-regenerate-ids-soon))))
+ )
+ )
)
)
- [nongnu] elpa/subed 37545d9 201/389: Call subed-mpv-kill when Emacs exits, (continued)
- [nongnu] elpa/subed 37545d9 201/389: Call subed-mpv-kill when Emacs exits, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed fafff02 221/389: subed-srt--jump-to-subtitle-id: Remove useless progn, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed dbc8394 222/389: Prevent extra goto-char when jumping to specific subtitle ID, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 7e2fe58 230/389: lint guards, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 77c206e 237/389: Remove redundant jumps, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 29652a4 239/389: Add subed-insert-subtitle-adjacent, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 422981e 240/389: Fix typos in tests, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 67d6253 241/389: Add more tests for subtitle insertion, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 1342294 242/389: Add more tests for inserting subtitles adjacent, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed ee0e3eb 243/389: subed-insert-subtitle-adjacent: Maybe use reduced subtitle spacing, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 1ef2dbb 245/389: Add more tests for inserting subtitles adjacent with restricted space,
ELPA Syncer <=
- [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