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
129
130
|
--------------------------------------------------------------------------------
module Language.Haskell.Stylish.Step.LanguagePragmas.Tests
( tests
) where
--------------------------------------------------------------------------------
import Test.Framework (Test, testGroup)
import Test.Framework.Providers.HUnit (testCase)
import Test.HUnit (Assertion, (@=?))
--------------------------------------------------------------------------------
import Language.Haskell.Stylish.Step.LanguagePragmas
import Language.Haskell.Stylish.Tests.Util
--------------------------------------------------------------------------------
tests :: Test
tests = testGroup "Language.Haskell.Stylish.Step.LanguagePragmas.Tests"
[ testCase "case 01" case01
, testCase "case 02" case02
, testCase "case 03" case03
, testCase "case 04" case04
, testCase "case 05" case05
, testCase "case 06" case06
]
--------------------------------------------------------------------------------
case01 :: Assertion
case01 = expected @=? testStep (step 80 Vertical False) input
where
input = unlines
[ "{-# LANGUAGE ViewPatterns #-}"
, "{-# LANGUAGE TemplateHaskell, ViewPatterns #-}"
, "{-# LANGUAGE ScopedTypeVariables #-}"
, "module Main where"
]
expected = unlines
[ "{-# LANGUAGE ScopedTypeVariables #-}"
, "{-# LANGUAGE TemplateHaskell #-}"
, "{-# LANGUAGE ViewPatterns #-}"
, "module Main where"
]
--------------------------------------------------------------------------------
case02 :: Assertion
case02 = expected @=? testStep (step 80 Vertical True) input
where
input = unlines
[ "{-# LANGUAGE BangPatterns #-}"
, "{-# LANGUAGE ViewPatterns #-}"
, "increment ((+ 1) -> x) = x"
]
expected = unlines
[ "{-# LANGUAGE ViewPatterns #-}"
, "increment ((+ 1) -> x) = x"
]
--------------------------------------------------------------------------------
case03 :: Assertion
case03 = expected @=? testStep (step 80 Vertical True) input
where
input = unlines
[ "{-# LANGUAGE BangPatterns #-}"
, "{-# LANGUAGE ViewPatterns #-}"
, "increment x = case x of !_ -> x + 1"
]
expected = unlines
[ "{-# LANGUAGE BangPatterns #-}"
, "increment x = case x of !_ -> x + 1"
]
--------------------------------------------------------------------------------
case04 :: Assertion
case04 = expected @=? testStep (step 80 Compact False) input
where
input = unlines
[ "{-# LANGUAGE TypeOperators, StandaloneDeriving, DeriveDataTypeable,"
, " TemplateHaskell #-}"
, "{-# LANGUAGE TemplateHaskell, ViewPatterns #-}"
]
expected = unlines
[ "{-# LANGUAGE DeriveDataTypeable, StandaloneDeriving, " ++
"TemplateHaskell,"
, " TypeOperators, ViewPatterns #-}"
]
--------------------------------------------------------------------------------
case05 :: Assertion
case05 = expected @=? testStep (step 80 Vertical False) input
where
input = unlines
[ "{-# LANGUAGE CPP #-}"
, ""
, "#if __GLASGOW_HASKELL__ >= 702"
, "{-# LANGUAGE Trustworthy #-}"
, "#endif"
]
expected = unlines
[ "{-# LANGUAGE CPP #-}"
, ""
, "#if __GLASGOW_HASKELL__ >= 702"
, "{-# LANGUAGE Trustworthy #-}"
, "#endif"
]
case06 :: Assertion
case06 = expected @=? testStep (step 80 CompactLine False) input
where
input = unlines
[ "{-# LANGUAGE TypeOperators, StandaloneDeriving, DeriveDataTypeable,"
, " TemplateHaskell #-}"
, "{-# LANGUAGE TemplateHaskell, ViewPatterns #-}"
]
expected = unlines
[ "{-# LANGUAGE DeriveDataTypeable, StandaloneDeriving, " ++
"TemplateHaskell #-}"
, "{-# LANGUAGE TypeOperators, ViewPatterns #-}"
]
|
