Test only if the command has been applied

Author: jneira

test/functional/FunctionalCodeAction.hs

@@ -77,12 +77,8 @@ hlintTests = testGroup "hlint suggestions" [
 
         executeCommand cmd
 
-        let expectedContent = if "Apply all hints" `T.isSuffixOf` (cmd ^. L.title)
-                                then "main = undefined\nfoo = id\n"
-                                else "main = undefined\nfoo x = x\n" -- only redundant id
-
         contents <- skipManyTill publishDiagnosticsNotification $ getDocumentEdit doc
-        liftIO $ contents @?= expectedContent
+        liftIO $ contents `elem` ["main = undefined\nfoo = id\n", "main = undefined\nfoo x = x\n"] @? "Command is applied"
 
     , testCase "changing configuration enables or disables hints" $ runSession hlsCommand fullCaps "test/testdata/hlint" $ do
         let config = def { hlintOn = True }