meissa/mastodon-bot
Archived
7
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add test & fix spec issue

Browse source
This commit is contained in:
jem 2020-06-17 18:23:27 +02:00
parent 9850b9cf1e
commit 3dd7083d7b
2 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/main/mastodon_bot/rss_api.cljs
View file

@ -8,7 +8,7 @@
)) ))
(s/def ::feed (s/cat :name string? :url string?)) (s/def ::feed (s/cat :name string? :url string?))
(s/def ::feeds (s/* ::feed)) (s/def ::feeds (s/coll-of ::feed))
(def rss-source? (s/keys :req-un [::feeds])) (def rss-source? (s/keys :req-un [::feeds]))
(defn-spec rss-client any? (defn-spec rss-client any?

11
src/test/mastodon_bot/rss_api_test.cljs Executable file
View file

@ -0,0 +1,11 @@
(ns mastodon-bot.rss-api-test
(:require
[cljs.test :refer-macros [deftest is testing run-tests]]
[clojure.spec.alpha :as s]
[mastodon-bot.rss-api :as sut]
))
(deftest test-spec
(is (s/valid? sut/rss-source?
{:feeds [["correctiv-blog" "https://news.correctiv.org/news/rss.php"]]}
)))