mirror of
https://github.com/unclebob/more-speech.git
synced 2024-09-30 18:40:47 +00:00
105 lines
3.8 KiB
Clojure
105 lines
3.8 KiB
Clojure
(ns more-speech.ui.formatters-spec
|
|
(:require [speclj.core :refer :all]
|
|
[more-speech.ui.formatters :refer :all]))
|
|
|
|
(describe "Abbreviations."
|
|
(it "abbreviates pubkeys"
|
|
(should= "short" (abbreviate "short" 10))
|
|
(should= "some lo..." (abbreviate "some long string." 10)))
|
|
|
|
)
|
|
|
|
(describe "reformat article body to fit width."
|
|
(it "should not wrap nothing"
|
|
(should= "" (reformat-article "" 1)))
|
|
|
|
(it "should not wrap something shorter than the width."
|
|
(should= "xxx" (reformat-article "xxx" 10)))
|
|
|
|
(it "should wrap something longer than the width."
|
|
(should= "xx\nxx" (reformat-article "xxxx" 2)))
|
|
|
|
(it "should repeatedly wrap long strings."
|
|
(should= "xx\nxx\nxx" (reformat-article "xxxxxx" 2)))
|
|
|
|
(it "should break spaces"
|
|
(should= "x\nx" (reformat-article "x x" 1))
|
|
(should= "x\nx" (reformat-article "x x" 2))
|
|
(should= "xx\nxx" (reformat-article "xx xx" 4)))
|
|
|
|
(it "should ignore existing single line breaks."
|
|
(should= "x x" (reformat-article "x\nx" 5)))
|
|
|
|
(it "should preserve existing double line breaks."
|
|
(should= "x\n\nx" (reformat-article "x\n\nx" 7)))
|
|
|
|
(it "should preserve leading spaces."
|
|
(should= "x\n xxx" (reformat-article "x\n xxx" 6)))
|
|
|
|
(it "should give priority to leading spaces"
|
|
(should= "x\n x\n\nx" (reformat-article "x\n x\n\nx" 20)))
|
|
|
|
(it "should not break this line. (bug-fix)"
|
|
(should= "I found you!" (reformat-article "I found you!" 50)))
|
|
)
|
|
|
|
(describe "format header"
|
|
(it "formats an empty message"
|
|
(let [nicknames {}
|
|
event {:pubkey 16r1111111111111111111111111111111111111111111111111111111111111111
|
|
:created-at 1
|
|
:content ""
|
|
:tags []}
|
|
header (format-header nicknames event)]
|
|
(should= " 11111111111111111... 12/31/69 18:00:01 \n" header)))
|
|
|
|
(it "formats a simple message"
|
|
(let [nicknames {}
|
|
event {:pubkey 16r1111111111111111111111111111111111111111111111111111111111111111
|
|
:created-at 1
|
|
:content "the message"
|
|
:tags []}
|
|
header (format-header nicknames event)]
|
|
(should= " 11111111111111111... 12/31/69 18:00:01 the message\n" header)))
|
|
|
|
(it "formats a long message with line ends."
|
|
(let [nicknames {}
|
|
event {:pubkey 16r1111111111111111111111111111111111111111111111111111111111111111
|
|
:created-at 1
|
|
:content "Four score and seven years ago
|
|
our fathers brought forth upon this continent
|
|
a new nation concieved in liberty and dedicated to
|
|
the proposition that all men are created equal."
|
|
:tags []}
|
|
header (format-header nicknames event)]
|
|
(should= " 11111111111111111... 12/31/69 18:00:01 Four score and seven years ago~our fathers brought forth upon this continent~...\n" header)))
|
|
|
|
(it "formats a message with a subject"
|
|
(let [nicknames {}
|
|
event {:pubkey 16r1111111111111111111111111111111111111111111111111111111111111111
|
|
:created-at 1
|
|
:content "the message"
|
|
:tags [[:subject "the subject"]]}
|
|
header (format-header nicknames event)]
|
|
(should= " 11111111111111111... 12/31/69 18:00:01 the subject|the message\n" header)))
|
|
)
|
|
|
|
(describe "subject and discussion tags"
|
|
(context "get-subject"
|
|
(it "returns null if no tags"
|
|
(let [tags []
|
|
subject (get-subject tags)]
|
|
(should= nil subject)))
|
|
|
|
(it "returns null if no subject tag"
|
|
(let [tags [[:p "hi"]]
|
|
subject (get-subject tags)]
|
|
(should= nil subject)))
|
|
|
|
(it "returns subject if found"
|
|
(let [tags [[:p "hi"] [:subject "the subject"]]
|
|
subject (get-subject tags)]
|
|
(should= "the subject" subject)))
|
|
))
|
|
|