aboutsummaryrefslogtreecommitdiff
path: root/tests/readers
diff options
context:
space:
mode:
Diffstat (limited to 'tests/readers')
-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")