[bpt/emacs.git] / test / newsticker-testsuite.el

;;; newsticker-testsuite.el --- Test suite for newsticker.

;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
;;   Free Software Foundation, Inc.

;; Author:      Ulf Jasper <ulf.jasper@web.de>
;; Filename:    newsticker-testsuite.el
;; URL:         http://www.nongnu.org/newsticker
;; Keywords:    News, RSS, Atom
;; Time-stamp:  "14. Juni 2008, 12:09:39 (ulf)"

;; ======================================================================

;; 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:

(require 'cl)                           ; assert

;; ======================================================================
;; Entry point
;; ======================================================================
(defun newsticker--testsuite ()
  "Unit test for newsticker.
Subtests signal errors if something goes wrong."
  (interactive)
  (newsticker--test--guid)
  (newsticker--test--cache-contains)
  (newsticker--test--decode-iso8601-date)
  (newsticker--test--decode-rfc822-date)
  (newsticker--test--group-manage-orphan-feeds)
  (message "All tests passed successfully."))

;; ======================================================================
;; Tests for newsticker-backend
;; ======================================================================
(defun newsticker--test--guid ()
  "Test `newsticker-guid-*'.
Signals an error if something goes wrong."
  (assert (string= "blah" (newsticker--guid-to-string "blah")))
  (assert (string= "myguid" (newsticker--guid '("title1" "description1" "link1"
                                                nil 'new 42 nil nil
                                                ((guid () "myguid")))))))

(defun newsticker--test--cache-contains ()
  "Test `newsticker--test--cache-contains'.
Signals an error if something goes wrong."
  (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"))))))
    (assert (newsticker--cache-contains newsticker--cache 'feed1 "WRONGTITLE"
                                        "description1" "link1" 'new "myguid"))
    (assert (not (newsticker--cache-contains newsticker--cache 'feed1 "title1"
                                             "description1" "link1" 'new
                                             "WRONG GUID")))
    (assert (newsticker--cache-contains newsticker--cache 'feed1 "title1"
                                        "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")))))))
    (assert (not (newsticker--cache-contains newsticker--cache 'feed1 "title1"
                                             "description1" "link1" 'new
                                             "myguid")))
    (assert (string= "myguid1"
                     (newsticker--guid (newsticker--cache-contains
                                        newsticker--cache 'feed1 "title1"
                                        "description1" "link1" 'new
                                        "myguid1"))))
    (assert (string= "myguid2"
                     (newsticker--guid (newsticker--cache-contains
                                        newsticker--cache 'feed1 "title1"
                                        "description1" "link1" 'new
                                        "myguid2"))))))

(defun newsticker--do-test--decode-iso8601-date (input expected)
  "Actually test `newsticker--decode-iso8601-date'.
Signals an error if iso8601-encoded INPUT does not match EXPECTED."
  (let ((result (format-time-string "%Y-%m-%dT%H:%M:%S"
                                    (newsticker--decode-iso8601-date input)
                                    t)))
    (assert (string= result expected)
            nil "Error decoding '%s': found '%s' but expected '%s'."
            input result expected)))

(defun newsticker--test--decode-iso8601-date ()
  "Test `newsticker--decode-iso8601-date'."
  (newsticker--decode-iso8601-date "2004-09-17T05:09:49+00:00")
  (newsticker--decode-iso8601-date "2004-09-17T05:09+00:00")
  (newsticker--decode-iso8601-date "2004-09-17T05:09:49")
  (newsticker--decode-iso8601-date "2004-09-17T05:09")
  (newsticker--decode-iso8601-date "2004-09-17")
  (newsticker--decode-iso8601-date "2004-09")
  (newsticker--do-test--decode-iso8601-date "2004"
                                            "2004-01-01T00:00:00")
  (newsticker--do-test--decode-iso8601-date "2004-09"
                                            "2004-09-01T00:00:00")
  (newsticker--do-test--decode-iso8601-date "2004-09-17"
                                            "2004-09-17T00:00:00")
  (newsticker--do-test--decode-iso8601-date "2004-09-17T05:09"
                                            "2004-09-17T05:09:00")
  (newsticker--do-test--decode-iso8601-date "2004-09-17T05:09:49"
                                            "2004-09-17T05:09:49")
  (newsticker--do-test--decode-iso8601-date "2004-09-17T05:09:49.123"
                                            "2004-09-17T05:09:49")
  (newsticker--do-test--decode-iso8601-date "2004-09-17T05:09+01:00"
                                            "2004-09-17T04:09:00")
  (newsticker--do-test--decode-iso8601-date "2004-09-17T05:09-02:00"
                                            "2004-09-17T07:09:00"))

(defun newsticker--do-test--decode-rfc822-date (input expected)
  "Actually test `newsticker--decode-rfc822-date'.
Signals an error if rfc822-encoded INPUT does not match EXPECTED."
  (let ((result (format-time-string "%Y-%m-%dT%H:%M:%S"
                                    (newsticker--decode-rfc822-date input)
                                    t)))
    (assert (string= result expected)
            nil "Error decoding '%s': found '%s' but expected '%s'."
            input result expected)))

(defun newsticker--test--decode-rfc822-date ()
  "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
;; ======================================================================
(defun newsticker--test--group-manage-orphan-feeds ()
  "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)
    (assert (equal '("Feeds" "feed3" "feed2" "feed1")
                   newsticker-groups))))

(provide 'newsticker-testsuite)

;; arch-tag: e6c09af2-cc7a-4373-8f5f-9c36699ec34c
;;; newsticker-testsuite.el ends here
Commit	Line	Data
d176d8c6 UJ	1	;;; newsticker-testsuite.el --- Test suite for newsticker.
d176d8c6 UJ	2
5df4f04c	3	;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
d176d8c6 UJ	4	;; Free Software Foundation, Inc.
	5
	6	;; Author: Ulf Jasper <ulf.jasper@web.de>
	7	;; Filename: newsticker-testsuite.el
	8	;; URL: http://www.nongnu.org/newsticker
	9	;; Keywords: News, RSS, Atom
	10	;; Time-stamp: "14. Juni 2008, 12:09:39 (ulf)"
	11
	12	;; ======================================================================
	13
	14	;; This file is part of GNU Emacs.
	15
	16	;; GNU Emacs is free software: you can redistribute it and/or modify
	17	;; it under the terms of the GNU General Public License as published by
	18	;; the Free Software Foundation, either version 3 of the License, or
	19	;; (at your option) any later version.
	20
	21	;; GNU Emacs is distributed in the hope that it will be useful,
	22	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	23	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	24	;; GNU General Public License for more details.
	25
	26	;; You should have received a copy of the GNU General Public License
	27	;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
	28
	29	;; ======================================================================
	30
	31	;;; Commentary:
	32
	33	;;; Code:
	34
	35	(require 'cl) ; assert
	36
	37	;; ======================================================================
	38	;; Entry point
	39	;; ======================================================================
	40	(defun newsticker--testsuite ()
	41	"Unit test for newsticker.
	42	Subtests signal errors if something goes wrong."
	43	(interactive)
	44	(newsticker--test--guid)
	45	(newsticker--test--cache-contains)
	46	(newsticker--test--decode-iso8601-date)
	47	(newsticker--test--decode-rfc822-date)
	48	(newsticker--test--group-manage-orphan-feeds)
	49	(message "All tests passed successfully."))
	50
	51	;; ======================================================================
	52	;; Tests for newsticker-backend
	53	;; ======================================================================
	54	(defun newsticker--test--guid ()
	55	"Test `newsticker-guid-*'.
	56	Signals an error if something goes wrong."
	57	(assert (string= "blah" (newsticker--guid-to-string "blah")))
	58	(assert (string= "myguid" (newsticker--guid '("title1" "description1" "link1"
	59	nil 'new 42 nil nil
	60	((guid () "myguid")))))))
	61
	62	(defun newsticker--test--cache-contains ()
	63	"Test `newsticker--test--cache-contains'.
	64	Signals an error if something goes wrong."
	65	(let ((newsticker--cache '((feed1
	66	("title1" "description1" "link1" nil 'new 42
	67	nil nil ((guid () "myguid")))))))
68	(newsticker--guid-to-string
69	(assoc 'guid (newsticker--extra '("title1" "description1"
70	"link1" nil 'new 42 nil nil
71	((guid "myguid"))))))
72	(assert (newsticker--cache-contains newsticker--cache 'feed1 "WRONGTITLE"
73	"description1" "link1" 'new "myguid"))
74	(assert (not (newsticker--cache-contains newsticker--cache 'feed1 "title1"
75	"description1" "link1" 'new
76	"WRONG GUID")))
77	(assert (newsticker--cache-contains newsticker--cache 'feed1 "title1"
78	"description1" "link1" 'new "myguid")))
79	(let ((newsticker--cache '((feed1
80	("title1" "description1" "link1" nil 'new 42
81	nil nil ((guid () "myguid1")))
82	("title1" "description1" "link1" nil 'new 42
83	nil nil ((guid () "myguid2")))))))
84	(assert (not (newsticker--cache-contains newsticker--cache 'feed1 "title1"
85	"description1" "link1" 'new
86	"myguid")))
87	(assert (string= "myguid1"
88	(newsticker--guid (newsticker--cache-contains
89	newsticker--cache 'feed1 "title1"
90	"description1" "link1" 'new
91	"myguid1"))))
92	(assert (string= "myguid2"
93	(newsticker--guid (newsticker--cache-contains
94	newsticker--cache 'feed1 "title1"
95	"description1" "link1" 'new
96	"myguid2"))))))
97
98	(defun newsticker--do-test--decode-iso8601-date (input expected)
99	"Actually test `newsticker--decode-iso8601-date'.
100	Signals an error if iso8601-encoded INPUT does not match EXPECTED."
101	(let ((result (format-time-string "%Y-%m-%dT%H:%M:%S"
102	(newsticker--decode-iso8601-date input)
103	t)))
104	(assert (string= result expected)
105	nil "Error decoding '%s': found '%s' but expected '%s'."
106	input result expected)))
107
108	(defun newsticker--test--decode-iso8601-date ()
109	"Test `newsticker--decode-iso8601-date'."
110	(newsticker--decode-iso8601-date "2004-09-17T05:09:49+00:00")
111	(newsticker--decode-iso8601-date "2004-09-17T05:09+00:00")
112	(newsticker--decode-iso8601-date "2004-09-17T05:09:49")
113	(newsticker--decode-iso8601-date "2004-09-17T05:09")
114	(newsticker--decode-iso8601-date "2004-09-17")
115	(newsticker--decode-iso8601-date "2004-09")
116	(newsticker--do-test--decode-iso8601-date "2004"
117	"2004-01-01T00:00:00")
118	(newsticker--do-test--decode-iso8601-date "2004-09"
119	"2004-09-01T00:00:00")
120	(newsticker--do-test--decode-iso8601-date "2004-09-17"
121	"2004-09-17T00:00:00")
122	(newsticker--do-test--decode-iso8601-date "2004-09-17T05:09"
123	"2004-09-17T05:09:00")
124	(newsticker--do-test--decode-iso8601-date "2004-09-17T05:09:49"
125	"2004-09-17T05:09:49")
126	(newsticker--do-test--decode-iso8601-date "2004-09-17T05:09:49.123"
127	"2004-09-17T05:09:49")
128	(newsticker--do-test--decode-iso8601-date "2004-09-17T05:09+01:00"
129	"2004-09-17T04:09:00")
130	(newsticker--do-test--decode-iso8601-date "2004-09-17T05:09-02:00"
131	"2004-09-17T07:09:00"))
132
133	(defun newsticker--do-test--decode-rfc822-date (input expected)
134	"Actually test `newsticker--decode-rfc822-date'.
135	Signals an error if rfc822-encoded INPUT does not match EXPECTED."
136	(let ((result (format-time-string "%Y-%m-%dT%H:%M:%S"
137	(newsticker--decode-rfc822-date input)
138	t)))
139	(assert (string= result expected)
140	nil "Error decoding '%s': found '%s' but expected '%s'."
141	input result expected)))
142
143	(defun newsticker--test--decode-rfc822-date ()
144	"Test `newsticker--decode-rfc822-date'."
145	(newsticker--do-test--decode-rfc822-date "Mon, 10 Mar 2008 19:27:52 +0100"
146	"2008-03-10T18:27:52")
147	;;(format-time-string "%d.%m.%y, %H:%M %T%z"
148	;;(newsticker--decode-rfc822-date "Mon, 10 Mar 2008 19:27:52 +0200"))
149
150	(newsticker--do-test--decode-rfc822-date "Mon, 10 Mar 2008 19:27:52"
151	"2008-03-10T19:27:52")
152	(newsticker--do-test--decode-rfc822-date "Mon, 10 Mar 2008 19:27"
153	"2008-03-10T19:27:00")
154	(newsticker--do-test--decode-rfc822-date "10 Mar 2008 19:27"
155	"2008-03-10T19:27:00")
156	(newsticker--do-test--decode-rfc822-date "Mon, 10 Mar 2008"
157	"2008-03-10T00:00:00")
158	(newsticker--do-test--decode-rfc822-date "10 Mar 2008"
159	"2008-03-10T00:00:00")
160	(newsticker--do-test--decode-rfc822-date "Sat, 01 Dec 2007 00:05:00 +0100"
161	"2007-11-30T23:05:00")
162	(newsticker--do-test--decode-rfc822-date "Sun, 30 Dec 2007 18:58:13 +0100"
163	"2007-12-30T17:58:13"))
164
165	;; ======================================================================
166	;; Tests for newsticker-treeview
167	;; ======================================================================
168	(defun newsticker--test--group-manage-orphan-feeds ()
169	"Test `newsticker--group-manage-orphan-feeds'.
170	Signals an error if something goes wrong."
171	(let ((newsticker-groups '("Feeds"))
172	(newsticker-url-list-defaults nil)
173	(newsticker-url-list '(("feed1") ("feed2") ("feed3"))))
174	(newsticker--group-manage-orphan-feeds)
175	(assert (equal '("Feeds" "feed3" "feed2" "feed1")
176	newsticker-groups))))
177
178	(provide 'newsticker-testsuite)
179
5a88dbb6	180	;; arch-tag: e6c09af2-cc7a-4373-8f5f-9c36699ec34c
d176d8c6	181	;;; newsticker-testsuite.el ends here