Initial commit.

1 files changed, 40 insertions, 0 deletions

diff --git a/tests/rss.scm b/tests/rss.scm
new file mode 100644
index 0000000..843368c
--- /dev/null
+++ b/tests/rss.scm
@@ -0,0 +1,40 @@
+;;; Guile Feed --- Feed command-line interface.
+;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
+;;;
+;;; This file is part of Guile Feed.
+;;;
+;;; Guile Feed is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published
+;;; by the Free Software Foundation; either version 3 of the License,
+;;; or (at your option) any later version.
+;;;
+;;; Guile Feed is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with Guile Feed.  If not, see
+;;; <http://www.gnu.org/licenses/>.
+
+(define-module (test-feed)
+  #:use-module (guix tests)
+  #:use-module (feed scripts rss)
+  #:use-module (ice-9 match)
+  #:use-module (srfi srfi-64))
+
+(test-begin "search")
+
+(test-assert "feed-rss-search"
+  (string=? (with-output-to-string
+              (lambda ()
+                (feed-rss "-s" "planet-gnu")))
+            "\
+name: planet-gnu
+description: Gnu planet.
+link: http://planet.gnu.org/atom.xml
+relevance: 15
+
+"))
+
+(test-end "search")