1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Test.Hspec
import Text.Wrap
main :: IO ()
main = hspec $ do
it "leaves short lines untouched" $ do
wrapTextToLines defaultWrapSettings 7 "foo bar"
`shouldBe` ["foo bar"]
it "wraps long lines" $ do
wrapTextToLines defaultWrapSettings 7 "Hello, World!"
`shouldBe` ["Hello,", "World!"]
it "preserves leading whitespace" $ do
wrapTextToLines defaultWrapSettings 10 " Hello, World!"
`shouldBe` [" Hello,", "World!"]
it "honors preexisting newlines" $ do
wrapTextToLines defaultWrapSettings 100 "Hello,\n\n \nWorld!"
`shouldBe` ["Hello,", "", "", "World!"]
it "wraps long lines without truncation" $ do
wrapTextToLines defaultWrapSettings 2 "Hello, World!"
`shouldBe` ["Hello,", "World!"]
it "preserves indentation" $ do
let s = defaultWrapSettings { preserveIndentation = True }
wrapTextToLines s 10 " Hello, World!"
`shouldBe` [" Hello,", " World!"]
it "preserves indentation (2)" $ do
let s = defaultWrapSettings { preserveIndentation = True }
wrapTextToLines s 10 " Hello, World!\n Things And Stuff"
`shouldBe` [" Hello,", " World!", " Things", " And", " Stuff"]
it "breaks long non-whitespace tokens" $ do
let s = defaultWrapSettings { breakLongWords = True }
wrapTextToLines s 7 "HelloCrazyWorld!\nReallyLong Token"
`shouldBe` ["HelloCr", "azyWorl", "d!", "ReallyL", "ong", "Token"]
it "breaks long non-whitespace tokens and indents" $ do
let s = defaultWrapSettings { breakLongWords = True
, preserveIndentation = True
}
wrapTextToLines s 7 " HelloCrazyWorld!\n ReallyLong Token"
`shouldBe` [ " Hello", " Crazy", " World", " !"
, " Reall", " yLong", " Token"
]
it "gracefully handles indentation longer than the target width when breaking is off" $ do
let s = defaultWrapSettings { breakLongWords = False
, preserveIndentation = True
}
wrapTextToLines s 4 " foo bar"
`shouldBe` [" foo", " bar"]
it "gracefully handles indentation longer than the target width when breaking is on" $ do
let s = defaultWrapSettings { breakLongWords = True
, preserveIndentation = True
}
wrapTextToLines s 4 " foo bar"
`shouldBe` [" f", " o", " o", " b", " a", " r"]
it "indents all but the first line" $ do
let s = defaultWrapSettings { fillStrategy = FillIndent 2 }
wrapTextToLines s 8 "Hello there, World!"
`shouldBe` ["Hello", " there,", " World!"]
it "indents all lines" $ do
let s = defaultWrapSettings { fillStrategy = FillIndent 2
, fillScope = FillAll
}
wrapTextToLines s 8 "Hello there, World!"
`shouldBe` [" Hello", " there,", " World!"]
it "fills all lines but the first with a prefix" $ do
let s = defaultWrapSettings { fillStrategy = FillPrefix "- " }
wrapTextToLines s 8 "Hello there, World!"
`shouldBe` ["Hello", "- there,", "- World!"]
it "fills all lines with a prefix" $ do
let s = defaultWrapSettings { fillStrategy = FillPrefix "- "
, fillScope = FillAll
}
wrapTextToLines s 8 "Hello there, World!"
`shouldBe` ["- Hello", "- there,", "- World!"]
it "takes fill width into account" $ do
let s = defaultWrapSettings { fillStrategy = FillPrefix "- " }
wrapTextToLines s 3 "a b c d"
`shouldBe` ["a b", "- c", "- d"]
it "takes fill indent into account" $ do
let s = defaultWrapSettings { fillStrategy = FillIndent 2 }
wrapTextToLines s 3 "a b c d"
`shouldBe` ["a b", " c", " d"]
it "takes fill width into account on all lines" $ do
let s = defaultWrapSettings { fillStrategy = FillPrefix "- "
, fillScope = FillAll
}
wrapTextToLines s 3 "a b c d"
`shouldBe` ["- a", "- b", "- c", "- d"]
it "takes fill indent into account on all lines" $ do
let s = defaultWrapSettings { fillStrategy = FillIndent 2
, fillScope = FillAll
}
wrapTextToLines s 3 "a b c d"
`shouldBe` [" a", " b", " c", " d"]
it "places fill after preserved indent" $ do
let s = defaultWrapSettings { preserveIndentation = True
, fillStrategy = FillPrefix "- "
}
wrapTextToLines s 5 " a b c d"
`shouldBe` [" a b", " - c", " - d"]
it "places fill indent after preserved indent" $ do
let s = defaultWrapSettings { preserveIndentation = True
, fillStrategy = FillIndent 2
}
wrapTextToLines s 5 " a b c d"
`shouldBe` [" a b", " c", " d"]
|
