[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/subed 1342294 242/389: Add more tests for inserting subtit
|
From: |
ELPA Syncer |
|
Subject: |
[nongnu] elpa/subed 1342294 242/389: Add more tests for inserting subtitles adjacent |
|
Date: |
Fri, 3 Dec 2021 11:00:34 -0500 (EST) |
branch: elpa/subed
commit 13422940850e5e18dffebe574549102d7c03747e
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>
Add more tests for inserting subtitles adjacent
---
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 cf0b18e..0d0802a 100644
--- a/tests/test-subed.el
+++ b/tests/test-subed.el
@@ -1181,7 +1181,7 @@
)
)
)
- (describe "when there is not enough time for the spacing"
+ (describe "when there is not enough time for spacing"
(describe "between subtitles"
(describe "when prepending"
(it "a single subtitle."
@@ -1563,6 +1563,150 @@
"\n"))
(expect (point) :to-equal 71))))
)
+ (describe "when there is not enough time for the subtitles"
+ (describe "to append"
+ (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,500 --> 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,100
--> 00:01:00,400\n"
+ "\n\n"
+ "2\n"
+ "00:01:00,500
--> 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,500 --> 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,100
--> 00:01:00,200\n"
+ "\n\n"
+ "0\n"
+ "00:01:00,300
--> 00:01:00,400\n"
+ "\n\n"
+ "2\n"
+ "00:01:00,500
--> 00:01:05,000\n"
+ "Bar.\n"))
+ (expect (point) :to-equal 71))))
+ )
+ (describe "to prepend"
+ (describe "between subtitles"
+ (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,700 --> 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,100
--> 00:01:00,600\n"
+ "\n\n"
+ "2\n"
+ "00:01:00,700
--> 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,500 --> 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,100
--> 00:01:00,200\n"
+ "\n\n"
+ "0\n"
+ "00:01:00,300
--> 00:01:00,400\n"
+ "\n\n"
+ "2\n"
+ "00:01:00,500
--> 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:01,000 --> 00:00:02,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,100
--> 00:00:00,900\n"
+ "\n\n"
+ "1\n"
+ "00:00:01,000
--> 00:00:02,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,800 --> 00:00:03,000\n"
+ "Foo.\n"))
+ (subed-srt--jump-to-subtitle-text 2)
+ (expect (subed-insert-subtitle-adjacent arg) :to-equal
33)
+ (expect (buffer-string) :to-equal (concat "0\n"
+ "00:00:00,100
--> 00:00:00,350\n"
+ "\n\n"
+ "0\n"
+ "00:00:00,450
--> 00:00:00,700\n"
+ "\n\n"
+ "1\n"
+ "00:00:00,800
--> 00:00:03,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 cd972bd 191/389: (not ...) instead of (eq ... nil), (continued)
- [nongnu] elpa/subed cd972bd 191/389: (not ...) instead of (eq ... nil), ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 1821ccd 190/389: (not ...) instead of (eq ... nil), ELPA Syncer, 2021/12/03
- [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 <=
- [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, 2021/12/03
- [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