branch: elpa/subed
commit 909cffd89f3bc7a800c9dae77883ad3414da7ede
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
Use generic function subed-subtitle-text in test-subed.el
---
tests/test-subed.el | 54 ++++++++++++++++++++++++++---------------------------
1 file changed, 27 insertions(+), 27 deletions(-)
diff --git a/tests/test-subed.el b/tests/test-subed.el
index de966f9..90ba711 100644
--- a/tests/test-subed.el
+++ b/tests/test-subed.el
@@ -13,9 +13,9 @@
(forward-line 2)
(kill-line)
(insert "Hello."))
- (expect (subed-srt--subtitle-text 1) :to-equal "Hello.")
- (expect (subed-srt--subtitle-text 2) :to-equal "Bar.")
- (expect (subed-srt--subtitle-text 3) :to-equal "Baz.")
+ (expect (subed-subtitle-text 1) :to-equal "Hello.")
+ (expect (subed-subtitle-text 2) :to-equal "Bar.")
+ (expect (subed-subtitle-text 3) :to-equal "Baz.")
(expect (point) :to-equal 20)
(subed-jump-to-subtitle-time-stop 2)
(subed-for-each-subtitle nil nil nil
@@ -23,9 +23,9 @@
(forward-line 2)
(kill-line)
(insert "HEllo."))
- (expect (subed-srt--subtitle-text 1) :to-equal "Hello.")
- (expect (subed-srt--subtitle-text 2) :to-equal "HEllo.")
- (expect (subed-srt--subtitle-text 3) :to-equal "Baz.")
+ (expect (subed-subtitle-text 1) :to-equal "Hello.")
+ (expect (subed-subtitle-text 2) :to-equal "HEllo.")
+ (expect (subed-subtitle-text 3) :to-equal "Baz.")
(expect (point) :to-equal 60)
(subed-jump-to-subtitle-time-stop 3)
(subed-for-each-subtitle nil nil nil
@@ -33,9 +33,9 @@
(forward-line 2)
(kill-line)
(insert "HELlo."))
- (expect (subed-srt--subtitle-text 1) :to-equal "Hello.")
- (expect (subed-srt--subtitle-text 2) :to-equal "HEllo.")
- (expect (subed-srt--subtitle-text 3) :to-equal "HELlo.")
+ (expect (subed-subtitle-text 1) :to-equal "Hello.")
+ (expect (subed-subtitle-text 2) :to-equal "HEllo.")
+ (expect (subed-subtitle-text 3) :to-equal "HELlo.")
(expect (point) :to-equal 99)))
(describe "providing only the beginning"
(it "forwards."
@@ -49,9 +49,9 @@
(forward-line 2)
(kill-line)
(insert (pop new-texts))))
- (expect (subed-srt--subtitle-text 1) :to-equal "Foo.")
- (expect (subed-srt--subtitle-text 2) :to-equal "A")
- (expect (subed-srt--subtitle-text 3) :to-equal "B")
+ (expect (subed-subtitle-text 1) :to-equal "Foo.")
+ (expect (subed-subtitle-text 2) :to-equal "A")
+ (expect (subed-subtitle-text 3) :to-equal "B")
(expect (point) :to-equal 3)))
(it "backwards."
(with-temp-buffer
@@ -64,9 +64,9 @@
(forward-line 2)
(kill-line)
(insert (pop new-texts))))
- (expect (subed-srt--subtitle-text 1) :to-equal "Foo.")
- (expect (subed-srt--subtitle-text 2) :to-equal "B")
- (expect (subed-srt--subtitle-text 3) :to-equal "A")
+ (expect (subed-subtitle-text 1) :to-equal "Foo.")
+ (expect (subed-subtitle-text 2) :to-equal "B")
+ (expect (subed-subtitle-text 3) :to-equal "A")
(expect (point) :to-equal 92)))
)
(describe "providing beginning and end,"
@@ -82,9 +82,9 @@
(forward-line 2)
(kill-line)
(insert (pop new-texts))))
- (expect (subed-srt--subtitle-text 1) :to-equal "Foo.")
- (expect (subed-srt--subtitle-text 2) :to-equal "A")
- (expect (subed-srt--subtitle-text 3) :to-equal "B")
+ (expect (subed-subtitle-text 1) :to-equal "Foo.")
+ (expect (subed-subtitle-text 2) :to-equal "A")
+ (expect (subed-subtitle-text 3) :to-equal "B")
(expect (point) :to-equal 20)))
(it "backwards."
(with-temp-buffer
@@ -97,9 +97,9 @@
(forward-line 2)
(kill-line)
(insert (pop new-texts))))
- (expect (subed-srt--subtitle-text 1) :to-equal "Foo.")
- (expect (subed-srt--subtitle-text 2) :to-equal "B")
- (expect (subed-srt--subtitle-text 3) :to-equal "A")
+ (expect (subed-subtitle-text 1) :to-equal "Foo.")
+ (expect (subed-subtitle-text 2) :to-equal "B")
+ (expect (subed-subtitle-text 3) :to-equal "A")
(expect (point) :to-equal 76)))
)
(describe "excluding subtitles below"
@@ -114,9 +114,9 @@
(forward-line 2)
(kill-line)
(insert (pop new-texts))))
- (expect (subed-srt--subtitle-text 1) :to-equal "A")
- (expect (subed-srt--subtitle-text 2) :to-equal "B")
- (expect (subed-srt--subtitle-text 3) :to-equal "Baz.")
+ (expect (subed-subtitle-text 1) :to-equal "A")
+ (expect (subed-subtitle-text 2) :to-equal "B")
+ (expect (subed-subtitle-text 3) :to-equal "Baz.")
(expect (point) :to-equal 100)))
(it "backwards."
(with-temp-buffer
@@ -129,9 +129,9 @@
(forward-line 2)
(kill-line)
(insert (pop new-texts))))
- (expect (subed-srt--subtitle-text 1) :to-equal "B")
- (expect (subed-srt--subtitle-text 2) :to-equal "A")
- (expect (subed-srt--subtitle-text 3) :to-equal "Baz.")
+ (expect (subed-subtitle-text 1) :to-equal "B")
+ (expect (subed-subtitle-text 2) :to-equal "A")
+ (expect (subed-subtitle-text 3) :to-equal "Baz.")
(expect (point) :to-equal 55)))
)
)
