From f43f0a2ccc88eca3a0f4824f528d40bb55a359ff Mon Sep 17 00:00:00 2001 From: vlatkoB Date: Fri, 5 Nov 2021 17:30:17 +0100 Subject: [PATCH] test case-insensitive imports sort --- tests/Language/Haskell/Stylish/Step/Imports/Tests.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/tests/Language/Haskell/Stylish/Step/Imports/Tests.hs b/tests/Language/Haskell/Stylish/Step/Imports/Tests.hs index 479c9db6..f80e48cf 100644 --- a/tests/Language/Haskell/Stylish/Step/Imports/Tests.hs +++ b/tests/Language/Haskell/Stylish/Step/Imports/Tests.hs @@ -69,6 +69,7 @@ tests = testGroup "Language.Haskell.Stylish.Step.Imports.Tests" , testCase "case 35" case35 , testCase "case 36" case36 , testCase "case 37" case37 + , testCase "case 38" case38 ] @@ -923,3 +924,13 @@ case37 = assertSnippet (step Nothing defaultOptions {postQualified = True}) ] [ "import Data.Aeson qualified as JSON (Value, decode, encode)" ] + +-------------------------------------------------------------------------------- +case38 :: Assertion +case38 = assertSnippet (step (Just 80) $ fromImportAlign File) + [ "import HSP" + , "import Happstack.Server" + ] + [ "import Happstack.Server" + , "import HSP" + ]