Remove redundant ViewPatterns

See #4

1 files changed, 32 insertions, 1 deletions

diff --git a/tests/StylishHaskell/Stylish/LanguagePragmas/Tests.hs b/tests/StylishHaskell/Stylish/LanguagePragmas/Tests.hs
index 80a50bc..c802f62 100644
--- a/tests/StylishHaskell/Stylish/LanguagePragmas/Tests.hs
+++ b/tests/StylishHaskell/Stylish/LanguagePragmas/Tests.hs
@@ -19,12 +19,14 @@ import           StylishHaskell.Tests.Util
 tests :: Test
 tests = testGroup "StylishHaskell.Stylish.LanguagePragmas.Tests"
     [ case01
+    , case02
+    , case03
     ]
 
 
 --------------------------------------------------------------------------------
 case01 :: Test
-case01 = testCase "case 01" $ expected @=? testStylish stylish input
+case01 = testCase "case 01" $ expected @=? testStylish (stylish False) input
   where
     input = unlines
         [ "{-# LANGUAGE ViewPatterns #-}"
@@ -39,3 +41,32 @@ case01 = testCase "case 01" $ expected @=? testStylish stylish input
         , "{-# LANGUAGE ViewPatterns        #-}"
         , "module Main where"
         ]
+
+
+--------------------------------------------------------------------------------
+case02 :: Test
+case02 = testCase "case 02" $ expected @=? testStylish (stylish True) input
+  where
+    input = unlines
+        [ "{-# LANGUAGE ViewPatterns #-}"
+        , "increment ((+ 1) -> x) = x"
+        ]
+
+    expected = unlines
+        [ "{-# LANGUAGE ViewPatterns #-}"
+        , "increment ((+ 1) -> x) = x"
+        ]
+
+
+--------------------------------------------------------------------------------
+case03 :: Test
+case03 = testCase "case 03" $ expected @=? testStylish (stylish True) input
+  where
+    input = unlines
+        [ "{-# LANGUAGE ViewPatterns #-}"
+        , "increment x = x + 1"
+        ]
+
+    expected = unlines
+        [ "increment x = x + 1"
+        ]