Browse Source

org-feed: Fix failing test

testing/lisp/test-org-feed.el (test-org-feed/fill-template): Fix test
when called from an environment with another locale.
Nicolas Goaziou 9 years ago
parent
commit
6baece62fc
1 changed files with 16 additions and 12 deletions
  1. 16 12
      testing/lisp/test-org-feed.el

+ 16 - 12
testing/lisp/test-org-feed.el

@@ -44,31 +44,35 @@
    (equal (format-time-string (org-time-stamp-format nil nil))
 	  (org-feed-format-entry nil "%t" nil)))
   (should
-   (equal "<2016-01-02 Sat>"
-	  (org-feed-format-entry
-	   '(:pubDate "Sat, 02 Jan 2016 12:00:00 +0000") "%t" nil)))
+   (string-match-p
+    "<2016-01-02 \\S-+>"
+    (org-feed-format-entry
+     '(:pubDate "Sat, 02 Jan 2016 12:00:00 +0000") "%t" nil)))
   (should
    (equal (format-time-string (org-time-stamp-format t nil))
 	  (org-feed-format-entry nil "%T" nil)))
   (should
-   (equal "<2016-01-02 Sat 12:00>"
-	  (org-feed-format-entry
-	   '(:pubDate "Sat, 02 Jan 2016 12:00:00 +0000") "%T" nil)))
+   (string-match-p
+    "<2016-01-02 \\S-+ 12:00>"
+    (org-feed-format-entry
+     '(:pubDate "Sat, 02 Jan 2016 12:00:00 +0000") "%T" nil)))
   ;; %u and %U placeholders.
   (should
    (equal (format-time-string (org-time-stamp-format nil t))
 	  (org-feed-format-entry nil "%u" nil)))
   (should
-   (equal "[2016-01-02 Sat]"
-	  (org-feed-format-entry
-	   '(:pubDate "Sat, 02 Jan 2016 12:00:00 +0000") "%u" nil)))
+   (string-match-p
+    "[2016-01-02 \\S-+]"
+    (org-feed-format-entry
+     '(:pubDate "Sat, 02 Jan 2016 12:00:00 +0000") "%u" nil)))
   (should
    (equal (format-time-string (org-time-stamp-format t t))
 	  (org-feed-format-entry nil "%U" nil)))
   (should
-   (equal "[2016-01-02 Sat 12:00]"
-	  (org-feed-format-entry
-	   '(:pubDate "Sat, 02 Jan 2016 12:00:00 +0000") "%U" nil)))
+   (string-match-p
+    "[2016-01-02 \\S-+ 12:00]"
+    (org-feed-format-entry
+     '(:pubDate "Sat, 02 Jan 2016 12:00:00 +0000") "%U" nil)))
   ;; %h placeholder.  Make sure sexp placeholders are not expanded
   ;; when they are inserted through this one.
   (should