summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2008-12-23 02:02:08 +0100
committerLudovic Courtès2008-12-23 02:02:08 +0100
commitaa7a833d2cddd754a9364ec16b9a500bf68cde90 (patch)
treeadeeb4d3704791ea8e50c62057c4138b6126e886
parent1b75ab909106ae2bf9ee9dae564324da73c6d42c (diff)
downloadskribilo-aa7a833d2cddd754a9364ec16b9a500bf68cde90.tar.gz
skribilo-aa7a833d2cddd754a9364ec16b9a500bf68cde90.tar.lz
skribilo-aa7a833d2cddd754a9364ec16b9a500bf68cde90.zip
rss-2: Clean up tests.
-rw-r--r--tests/readers/rss-2.test3
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/readers/rss-2.test b/tests/readers/rss-2.test
index e6014f5..99ddf58 100644
--- a/tests/readers/rss-2.test
+++ b/tests/readers/rss-2.test
@@ -30,13 +30,12 @@
(define-macro (test-match name pattern xml)
+ ;; Test whether the RSS feed in XML matches PATTERN.
`(test-equal ,name #t
(match (%rss2-read (open-input-string ,xml))
(,pattern #t)
(_ #f))))
-;; Since `match' doesn't support keywords, help it.
-(define (kw:title? x) (eq? x #:title))
(test-begin "rss-2")