diff options
| author | Ludovic Courtès | 2008-12-23 02:02:08 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-12-23 02:02:08 +0100 |
| commit | aa7a833d2cddd754a9364ec16b9a500bf68cde90 (patch) | |
| tree | adeeb4d3704791ea8e50c62057c4138b6126e886 /tests/readers | |
| parent | 1b75ab909106ae2bf9ee9dae564324da73c6d42c (diff) | |
| download | skribilo-aa7a833d2cddd754a9364ec16b9a500bf68cde90.tar.gz skribilo-aa7a833d2cddd754a9364ec16b9a500bf68cde90.tar.lz skribilo-aa7a833d2cddd754a9364ec16b9a500bf68cde90.zip | |
rss-2: Clean up tests.
Diffstat (limited to 'tests/readers')
| -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") |