[nongnu] elpa/subed 750ae1f058 6/7: Test improvements

[ELPA Syncer]

branch: elpa/subed
commit 750ae1f058e74e82a3791feaed082c0b35fd64e0
Author: Sacha Chua <sacha@sachachua.com>
Commit: Sacha Chua <sacha@sachachua.com>

    Test improvements
    
    * tests/test-subed-common.el: New test for appending subtitles.
    * tests/test-subed-vtt.el: Changed wording to make it more natural.
---
 tests/test-subed-common.el | 9 +++++++++
 tests/test-subed-vtt.el    | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/tests/test-subed-common.el b/tests/test-subed-common.el
index 0fa4c9a42b..cdd5eeca56 100644
--- a/tests/test-subed-common.el
+++ b/tests/test-subed-common.el
@@ -3407,6 +3407,15 @@ This is another.
                                                                :to-equal
                                                                '((1 61000 
65123 "Foo." nil)
                                                                        (2 
122234 130345 "Bar." nil))))))
+  (describe "Appending a list of subtitles"
+    (it "adds them."
+      (with-temp-srt-buffer
+       (let ((list '((1 61000 65123 "Foo." nil)
+                                                                          (2 
122234 130345 "Bar." nil)
+                                                                          (3 
183450 195500 "Baz." nil))))
+         (subed-append-subtitle-list list)
+                                (expect (subed-subtitle-list)
+                 :to-equal list)))))
   (describe "Getting the text of a list"
     (it "returns a blank string when given nothing."
       (expect (subed-subtitle-list-text nil) :to-equal ""))
diff --git a/tests/test-subed-vtt.el b/tests/test-subed-vtt.el
index ec1aa0b627..05c1d227c5 100644
--- a/tests/test-subed-vtt.el
+++ b/tests/test-subed-vtt.el
@@ -837,7 +837,7 @@ Baz.
              (expect (point) :to-equal 67)))
           )
         (describe "with point on a non-last subtitle"
-          (it "passing nothing."
+          (it "inserts an empty subtitle."
             (with-temp-vtt-buffer
              (insert (concat "00:00:01.000 --> 00:00:02.000\n"
                              "Foo.\n\n"