LintSpec.hs 394 B

1234567891011121314
  1. module LintSpec where
  2. import Test.Hspec
  3. import Lint
  4. import Types
  5. spec :: Spec
  6. spec = do
  7. describe "lintSyntax" $ do
  8. it "check syntax with HList" $ do
  9. res <- lintSyntax defaultOptions "test/data/hlint.hs"
  10. res `shouldBe` "test/data/hlint.hs:4:8: Error: Redundant do\NULFound:\NUL do putStrLn \"Hello, world!\"\NULWhy not:\NUL putStrLn \"Hello, world!\"\n"