blob: 847368ca29f564b41d2353d6fb8db07460845d33 (
plain)
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
|
module Plugins.Monitors.CommonSpec
( main
, spec
) where
import Test.Hspec
import Plugins.Monitors.Common
main :: IO ()
main = hspec spec
spec :: Spec
spec =
describe "Common.padString" $ do
it "returns given string when called with default values" $
do padString 0 0 "" False "" "test" `shouldBe` "test"
it "truncates to max width" $ do
let maxw = 3
givenStr = "mylongstr"
expectedStr = take maxw givenStr
padString 0 maxw "" False "" givenStr `shouldBe` expectedStr
it "truncates to max width and concatenate with ellipsis" $ do
let maxw = 3
givenStr = "mylongstr"
ellipsis = "..."
expectedStr = (++ ellipsis) . take 3 $ givenStr
padString 0 maxw "" False ellipsis givenStr `shouldBe` expectedStr
|
