98 lines
3.2 KiB
Common Lisp
98 lines
3.2 KiB
Common Lisp
|
(defpackage :rsss-testing
|
||
|
|
(:use :cl)
|
||
|
|
(:export
|
||
|
|
|
||
|
|
:do-all))
|
||
|
|
|
||
|
|
(in-package :rsss-testing)
|
||
|
|
|
||
|
|
|
||
|
|
(defun do-all ()
|
||
|
|
"Execute all tests."
|
||
|
|
|
||
|
|
(rt:do-tests))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
;; ----------------------------------------
|
||
|
|
;; DATA PREP
|
||
|
|
;; ----------------------------------------
|
||
|
|
|
||
|
|
(defvar *rss* "")
|
||
|
|
(with-open-file (file-stream "t/res/rss.xml")
|
||
|
|
(do ((line (read-line file-stream nil)
|
||
|
|
(read-line file-stream nil)))
|
||
|
|
((null line))
|
||
|
|
|
||
|
|
(setq *rss*
|
||
|
|
(concatenate 'string *rss* (format nil "~A~%" line)))))
|
||
|
|
|
||
|
|
(setq *rss* (xmls:parse-to-list *rss*))
|
||
|
|
|
||
|
|
(defvar *getf-strings-list*
|
||
|
|
'(("apple" 1) ("pear" 2) ("plum" yuck) ("plum" yum) ("madoka" weeb 2)))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
;; ----------------------------------------
|
||
|
|
;; MISC
|
||
|
|
;; ----------------------------------------
|
||
|
|
|
||
|
|
(rt:deftest getf-strings
|
||
|
|
(rsss:getf-strings *getf-strings-list* "apple")
|
||
|
|
(("apple" 1)))
|
||
|
|
|
||
|
|
(rt:deftest getf-strings-1
|
||
|
|
(rsss:getf-strings *getf-strings-list* "plum")
|
||
|
|
(("plum" yuck) ("plum" yum)))
|
||
|
|
|
||
|
|
(rt:deftest getf-strings-2
|
||
|
|
(rsss:getf-strings *getf-strings-list* "madoka")
|
||
|
|
|
||
|
|
(("madoka" weeb 2)))
|
||
|
|
|
||
|
|
|
||
|
|
(rt:deftest getf-string
|
||
|
|
(rsss:getf-string *getf-strings-list* "plum")
|
||
|
|
|
||
|
|
("plum" yuck))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
;; ----------------------------------------
|
||
|
|
;; FEED PARSING
|
||
|
|
;; ----------------------------------------
|
||
|
|
|
||
|
|
(rt:deftest feed-values
|
||
|
|
(rsss:feed-values *rss* "item")
|
||
|
|
(("item" NIL ("title" NIL "Local Resident Takes a Nap") ("description" NIL "John was reported to be \"tired\" and \"irritable\" before his nap. Not so any more.") ("link" NIL "gopher://www.news.com.co.uk.cn/nap.cgi") ("guid" (("isPermaLink" "false")) "1102345") ("pubDate" NIL "Mon, 28 Aug 2018 09:00:00 -0400")) ("item" NIL ("title" NIL "London Bridge Has Burned Down") ("description" NIL "Oh no, not again! :(") ("link" NIL "https://londonbridge.co.uk.cn/bridge.php") ("guid" (("isPermaLink" "false")) "1102345") ("pubDate" NIL "Tue, 29 Aug 2018 09:00:00 -0400"))))
|
||
|
|
|
||
|
|
(rt:deftest feed-items
|
||
|
|
(rsss:feed-items *rss*)
|
||
|
|
(("item" NIL ("title" NIL "Local Resident Takes a Nap") ("description" NIL "John was reported to be \"tired\" and \"irritable\" before his nap. Not so any more.") ("link" NIL "gopher://www.news.com.co.uk.cn/nap.cgi") ("guid" (("isPermaLink" "false")) "1102345") ("pubDate" NIL "Mon, 28 Aug 2018 09:00:00 -0400")) ("item" NIL ("title" NIL "London Bridge Has Burned Down") ("description" NIL "Oh no, not again! :(") ("link" NIL "https://londonbridge.co.uk.cn/bridge.php") ("guid" (("isPermaLink" "false")) "1102345") ("pubDate" NIL "Tue, 29 Aug 2018 09:00:00 -0400"))))
|
||
|
|
|
||
|
|
(rt:deftest feed-value
|
||
|
|
(rsss:feed-value *rss* "title")
|
||
|
|
("title" NIL "RSS Sage Emergency Broadcast"))
|
||
|
|
|
||
|
|
(rt:deftest feed-value-listless
|
||
|
|
(rsss:feed-value-listless *rss* "title")
|
||
|
|
"RSS Sage Emergency Broadcast")
|
||
|
|
|
||
|
|
(rt:deftest title
|
||
|
|
(rsss:title *rss*)
|
||
|
|
"RSS Sage Emergency Broadcast")
|
||
|
|
|
||
|
|
(rt:deftest description
|
||
|
|
(rsss:description *rss*)
|
||
|
|
"Your daily dose of RSS Sage tests!")
|
||
|
|
|
||
|
|
(rt:deftest link
|
||
|
|
(rsss:link *rss*)
|
||
|
|
"https://rsss.eunichx.us")
|
||
|
|
|
||
|
|
(rt:deftest pubdate
|
||
|
|
(rsss:pubdate *rss*)
|
||
|
|
"Tue, 29 Aug 2018 09:00:00 -0400")
|
||
|
|
|