blob: 3a27ce7a32549c5d3ba387fdb77004f0ae32cd09 (
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
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
|
--------------------------------------------------------------------------------
module Language.Haskell.Stylish.Tests
( tests
) where
--------------------------------------------------------------------------------
import Test.Framework (Test, testGroup)
import Test.Framework.Providers.HUnit (testCase)
import Test.HUnit (Assertion, (@?=))
--------------------------------------------------------------------------------
import Language.Haskell.Stylish
import Language.Haskell.Stylish.Tests.Util
--------------------------------------------------------------------------------
tests :: Test
tests = testGroup "Language.Haskell.Stylish.Step.Tabs.Tests"
[ testCase "case 01" case01
, testCase "case 02" case02
, testCase "case 03" case03
]
--------------------------------------------------------------------------------
case01 :: Assertion
case01 = (@?= result) =<< format Nothing Nothing input
where
input = "module Herp where\n data Foo = Bar | Baz"
result = Right [ "module Herp where"
, "data Foo = Bar"
, " | Baz"
]
--------------------------------------------------------------------------------
case02 :: Assertion
case02 = withTestDirTree $ do
writeFile "test-config.yaml" $ unlines
[ "steps:"
, " - records: {}"
, "indent: 2"
]
actual <- format (Just $ ConfigPath "test-config.yaml") Nothing input
actual @?= result
where
input = "module Herp where\n data Foo = Bar | Baz"
result = Right [ "module Herp where"
, "data Foo = Bar"
, " | Baz"
]
--------------------------------------------------------------------------------
case03 :: Assertion
case03 = (@?= result) =<< format Nothing (Just fileLocation) input
where
fileLocation = "directory/File.hs"
input = "module Herp"
result = Left $
"Language.Haskell.Stylish.Parse.parseModule: could not parse " <>
fileLocation <>
": ParseFailed (SrcLoc \"<unknown>.hs\" 2 1) \"Parse error: EOF\""
|
