diff options
| -rw-r--r-- | tests/readers/rss-2.test | 3 |
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") |