simon/IReadIt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added mechanism for splitting long output into a thread

Browse source
This commit is contained in:
Simon Brooke 2019-03-07 23:41:15 +00:00
parent 90e42c691e
commit ab873fb6c9
7 changed files with 155 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

33
test/clj/ireadit/test/splitter.clj Normal file
View file

@ -0,0 +1,33 @@
(ns ireadit.test.splitter
(:require [clojure.string :as s]
[clojure.test :refer :all]
[ring.mock.request :refer :all]
[ireadit.splitter :refer :all]
[ireadit.middleware.formats :as formats]
[muuntaja.core :as m]
[mount.core :as mount]))
(deftest test-splitter
(testing "Splitting a string into tweets"
(let [test-input "We believe that the Scottish Parliament should have the
right to hold another referendum if there is clear and sustained
evidence that independence has become the preferred option of a
majority of the Scottish people — or if there is a significant
and material change in the circumstances that prevailed in 2014,
such as Scotland being taken out of the EU against our will."
expected (list "I read it as: \"We believe that the Scottish Parliament should have the right to hold another referendum if there is clear and sustained evidence that independence has become the preferred option of a majority of the >>>"
"Scottish people — or if there is a significant and material change in the circumstances that prevailed in 2014, such as Scotland being taken out of the EU against our will. \"")
actual (split-into-tweets test-input)]
(is (= actual expected)))
(let [test-input "We believe that the Scottish Parliament should have the
right to hold another referendum if there is clear and sustained
evidence that independence has become the preferred option of a
majority of the Scottish people — or if there is a significant
and material change in the circumstances that prevailed in 2014,
such as Scotland being taken out of the EU against our will."
tweets (split-into-tweets test-input)
expected true
actual (s/starts-with? (first tweets) prologue)]
(is (= actual expected)))
))