newsticker-tests.el 7.25 KB
Newer Older
Ulf Jasper's avatar
Ulf Jasper committed
1 2
;;; newsticker-testsuite.el --- Test suite for newsticker.

3
;; Copyright (C) 2003-2011  Free Software Foundation, Inc.
Ulf Jasper's avatar
Ulf Jasper committed
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

;; Author:      Ulf Jasper <ulf.jasper@web.de>
;; Keywords:    News, RSS, Atom

;; This file is part of GNU Emacs.

;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;;; Code:

27 28
(require 'ert)
(require 'newsticker)
Ulf Jasper's avatar
Ulf Jasper committed
29 30 31 32

;; ======================================================================
;; Tests for newsticker-backend
;; ======================================================================
33 34
(ert-deftest newsticker--guid ()
  "Test for `newsticker--guid-*'.
Ulf Jasper's avatar
Ulf Jasper committed
35
Signals an error if something goes wrong."
36 37
  (should (string= "blah" (newsticker--guid-to-string "blah")))
  (should (string= "myguid" (newsticker--guid '("title1" "description1" "link1"
Ulf Jasper's avatar
Ulf Jasper committed
38 39 40
                                                nil 'new 42 nil nil
                                                ((guid () "myguid")))))))

41 42
(ert-deftest newsticker--cache-contains ()
  "Test for `newsticker--cache-contains'."
Ulf Jasper's avatar
Ulf Jasper committed
43 44 45 46 47 48 49
  (let ((newsticker--cache '((feed1
                              ("title1" "description1" "link1" nil 'new 42
                               nil nil ((guid () "myguid")))))))
    (newsticker--guid-to-string
     (assoc 'guid (newsticker--extra '("title1" "description1"
                                       "link1" nil 'new 42 nil nil
                                       ((guid "myguid"))))))
50
    (should (newsticker--cache-contains newsticker--cache 'feed1 "WRONGTITLE"
Ulf Jasper's avatar
Ulf Jasper committed
51
                                        "description1" "link1" 'new "myguid"))
52
    (should (not (newsticker--cache-contains newsticker--cache 'feed1 "title1"
Ulf Jasper's avatar
Ulf Jasper committed
53 54
                                             "description1" "link1" 'new
                                             "WRONG GUID")))
55
    (should (newsticker--cache-contains newsticker--cache 'feed1 "title1"
Ulf Jasper's avatar
Ulf Jasper committed
56 57 58 59 60 61
                                        "description1" "link1" 'new "myguid")))
  (let ((newsticker--cache '((feed1
                              ("title1" "description1" "link1" nil 'new 42
                               nil nil ((guid () "myguid1")))
                              ("title1" "description1" "link1" nil 'new 42
                               nil nil ((guid () "myguid2")))))))
62
    (should (not (newsticker--cache-contains newsticker--cache 'feed1 "title1"
Ulf Jasper's avatar
Ulf Jasper committed
63 64
                                             "description1" "link1" 'new
                                             "myguid")))
65
    (should (string= "myguid1"
Ulf Jasper's avatar
Ulf Jasper committed
66 67 68 69
                     (newsticker--guid (newsticker--cache-contains
                                        newsticker--cache 'feed1 "title1"
                                        "description1" "link1" 'new
                                        "myguid1"))))
70
    (should (string= "myguid2"
Ulf Jasper's avatar
Ulf Jasper committed
71 72 73 74 75
                     (newsticker--guid (newsticker--cache-contains
                                        newsticker--cache 'feed1 "title1"
                                        "description1" "link1" 'new
                                        "myguid2"))))))

76
(defun newsticker-tests--decode-iso8601-date (input expected)
Ulf Jasper's avatar
Ulf Jasper committed
77
  "Actually test `newsticker--decode-iso8601-date'.
78
Apply to INPUT and compare with EXPECTED."
Ulf Jasper's avatar
Ulf Jasper committed
79 80 81
  (let ((result (format-time-string "%Y-%m-%dT%H:%M:%S"
                                    (newsticker--decode-iso8601-date input)
                                    t)))
82
    (should (string= result expected))))
Ulf Jasper's avatar
Ulf Jasper committed
83

84
(ert-deftest newsticker--decode-iso8601-date ()
Ulf Jasper's avatar
Ulf Jasper committed
85
  "Test `newsticker--decode-iso8601-date'."
86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101
  (newsticker-tests--decode-iso8601-date "2004"
                                         "2004-01-01T00:00:00")
  (newsticker-tests--decode-iso8601-date "2004-09"
                                         "2004-09-01T00:00:00")
  (newsticker-tests--decode-iso8601-date "2004-09-17"
                                         "2004-09-17T00:00:00")
  (newsticker-tests--decode-iso8601-date "2004-09-17T05:09"
                                         "2004-09-17T05:09:00")
  (newsticker-tests--decode-iso8601-date "2004-09-17T05:09:49"
                                         "2004-09-17T05:09:49")
  (newsticker-tests--decode-iso8601-date "2004-09-17T05:09:49.123"
                                         "2004-09-17T05:09:49")
  (newsticker-tests--decode-iso8601-date "2004-09-17T05:09+01:00"
                                         "2004-09-17T04:09:00")
  (newsticker-tests--decode-iso8601-date "2004-09-17T05:09-02:00"
                                         "2004-09-17T07:09:00"))
Ulf Jasper's avatar
Ulf Jasper committed
102 103 104

(defun newsticker--do-test--decode-rfc822-date (input expected)
  "Actually test `newsticker--decode-rfc822-date'.
105
Apply to INPUT and compare with EXPECTED."
Ulf Jasper's avatar
Ulf Jasper committed
106 107 108
  (let ((result (format-time-string "%Y-%m-%dT%H:%M:%S"
                                    (newsticker--decode-rfc822-date input)
                                    t)))
109
    (should (string= result expected))))
Ulf Jasper's avatar
Ulf Jasper committed
110

111
(ert-deftest newsticker--decode-rfc822-date ()
Ulf Jasper's avatar
Ulf Jasper committed
112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135
  "Test `newsticker--decode-rfc822-date'."
  (newsticker--do-test--decode-rfc822-date "Mon, 10 Mar 2008 19:27:52 +0100"
                                           "2008-03-10T18:27:52")
  ;;(format-time-string "%d.%m.%y, %H:%M %T%z"
  ;;(newsticker--decode-rfc822-date "Mon, 10 Mar 2008 19:27:52 +0200"))

  (newsticker--do-test--decode-rfc822-date "Mon, 10 Mar 2008 19:27:52"
                                           "2008-03-10T19:27:52")
  (newsticker--do-test--decode-rfc822-date "Mon, 10 Mar 2008 19:27"
                                           "2008-03-10T19:27:00")
  (newsticker--do-test--decode-rfc822-date "10 Mar 2008 19:27"
                                           "2008-03-10T19:27:00")
  (newsticker--do-test--decode-rfc822-date "Mon, 10 Mar 2008"
                                           "2008-03-10T00:00:00")
  (newsticker--do-test--decode-rfc822-date "10 Mar 2008"
                                           "2008-03-10T00:00:00")
  (newsticker--do-test--decode-rfc822-date "Sat, 01 Dec 2007 00:05:00 +0100"
                                           "2007-11-30T23:05:00")
  (newsticker--do-test--decode-rfc822-date "Sun, 30 Dec 2007 18:58:13 +0100"
                                           "2007-12-30T17:58:13"))

;; ======================================================================
;; Tests for newsticker-treeview
;; ======================================================================
136
(ert-deftest newsticker--group-manage-orphan-feeds ()
Ulf Jasper's avatar
Ulf Jasper committed
137 138 139 140 141 142
  "Test `newsticker--group-manage-orphan-feeds'.
Signals an error if something goes wrong."
  (let ((newsticker-groups '("Feeds"))
        (newsticker-url-list-defaults nil)
        (newsticker-url-list '(("feed1") ("feed2") ("feed3"))))
    (newsticker--group-manage-orphan-feeds)
143
    (should (equal '("Feeds" "feed3" "feed2" "feed1")
Ulf Jasper's avatar
Ulf Jasper committed
144 145
                   newsticker-groups))))

146
(provide 'newsticker-tests)
Ulf Jasper's avatar
Ulf Jasper committed
147

148
;;; newsticker-tests.el ends here