Add test for #404

Author: jaspervdj

tests/Language/Haskell/Stylish/Step/UnicodeSyntax/Tests.hs

@@ -21,6 +21,7 @@ tests :: Test
 tests = testGroup "Language.Haskell.Stylish.Step.UnicodeSyntax.Tests"
     [ testCase "case 01" case01
     , testCase "case 02" case02
+    , testCase "case 03" case03
     ]
 
 
@@ -46,3 +47,14 @@ case02 = assertSnippet (step True "LaNgUaGe")
     , "sort ∷ Ord a ⇒ [a] → [a]"
     , "sort _ = []"
     ]
+
+
+--------------------------------------------------------------------------------
+case03 :: Assertion
+case03 = assertSnippet (step False "LANGUAGE")
+    [ "x :: Int -> Int -> Int"
+    , "x = undefined"
+    ]
+    [ "x ∷ Int → Int → Int"
+    , "x = undefined"
+    ]