[nongnu] elpa/subed 5de6f21 377/389: Add msecs-to-timestamp as a common function

[ELPA Syncer]

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

    Add msecs-to-timestamp as a common function
    
    That way, calling it from a WebVTT file uses the right format.
    
    * subed/subed.el (subed--generic-function-suffixes): Add
      msecs-to-timestamp.
    * tests/test-subed-srt.el ("Converting msecs to timestamp"):
      Add test.
    * tests/test-subed-vtt.el ("VTT"): Add test.
---
 subed/subed.el          | 1 +
 tests/test-subed-srt.el | 4 ++++
 tests/test-subed-vtt.el | 6 +++++-
 3 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/subed/subed.el b/subed/subed.el
index e148fe7..eb71b79 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -110,6 +110,7 @@
   (list "subtitle-id" "subtitle-id-max" "subtitle-id-at-msecs"
         "subtitle-msecs-start" "subtitle-msecs-stop"
         "subtitle-text" "subtitle-relative-point"
+        "msecs-to-timestamp"
         "jump-to-subtitle-id" "jump-to-subtitle-id-at-msecs"
         "jump-to-subtitle-time-start" "jump-to-subtitle-time-stop"
         "jump-to-subtitle-text" "jump-to-subtitle-text-at-msecs"
diff --git a/tests/test-subed-srt.el b/tests/test-subed-srt.el
index e0d0203..e644721 100644
--- a/tests/test-subed-srt.el
+++ b/tests/test-subed-srt.el
@@ -1473,3 +1473,7 @@ Baz.
         (expect (point) :to-equal 33)))
     )
   )
+(describe "Converting msecs to timestamp"
+  (it "uses the right format"
+    (with-temp-srt-buffer
+     (expect (subed-msecs-to-timestamp 1401) :to-equal "00:00:01,401"))))
diff --git a/tests/test-subed-vtt.el b/tests/test-subed-vtt.el
index 6c7261a..71b4de9 100644
--- a/tests/test-subed-vtt.el
+++ b/tests/test-subed-vtt.el
@@ -1133,4 +1133,8 @@ Baz.
          (subed-vtt--sort)
          (expect (point) :to-equal (1- (point-max)))))
       )
-    ))
+    )
+  (describe "Converting msecs to timestamp"
+    (it "uses the right format"
+      (with-temp-vtt-buffer
+       (expect (subed-msecs-to-timestamp 1401) :to-equal "00:00:01.401")))))