From aa7a833d2cddd754a9364ec16b9a500bf68cde90 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Tue, 23 Dec 2008 02:02:08 +0100
Subject: rss-2: Clean up tests.

---
 tests/readers/rss-2.test | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'tests/readers/rss-2.test')

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")
-- 
cgit v1.2.3