TTYSpec.hs

module Hadolint.Formatter.TTYSpec (spec) where

import Helpers
import Hadolint (OutputFormat (..))
import Hadolint.Rule (CheckFailure (..), DLSeverity (..))
import Test.Hspec


spec :: SpecWith ()
spec = do
  let ?noColor = True
  describe "Formatter: TTY" $ do
    it "print empty results" $ do
      let checkFails = []
          expectation = unlines []
      assertFormatter TTY checkFails expectation

    it "print some result: no colors" $ do
      let checkFails = [ CheckFailure
                          { code = "DL2001",
                            severity = DLInfoC,
                            message = "test",
                            line = 1
                          }
                       ]
          expectation = unlines
                          [ "<string>:1 DL2001 info: test"
                          ]
      assertFormatter TTY checkFails expectation

    it "print some result: with colors" $ do
      let ?noColor = False
      let checkFails = [ CheckFailure
                          { code = "DL2001",
                            severity = DLInfoC,
                            message = "test",
                            line = 1
                          }
                       ]
          expectation = unlines
                          [ "<string>:1 DL2001 \ESC[92minfo\ESC[0m: test"
                          ]
      assertFormatter TTY checkFails expectation

    it "print multiple results: no colors" $ do
      let checkFails = [ CheckFailure
                          { code = "DL2001",
                            severity = DLInfoC,
                            message = "test",
                            line = 1
                          },
                         CheckFailure
                          { code = "DL2002",
                            severity = DLWarningC,
                            message = "foo",
                            line = 3
                          }
                       ]
          expectation = unlines
                          [ "<string>:1 DL2001 info: test",
                            "<string>:3 DL2002 warning: foo"
                          ]
      assertFormatter TTY checkFails expectation

    it "print multiple results: with colors" $ do
      let ?noColor = False
      let checkFails = [ CheckFailure
                          { code = "DL2001",
                            severity = DLInfoC,
                            message = "test",
                            line = 1
                          },
                         CheckFailure
                          { code = "DL2002",
                            severity = DLWarningC,
                            message = "foo",
                            line = 3
                          }
                       ]
          expectation = unlines
                          [ "<string>:1 DL2001 \ESC[92minfo\ESC[0m: test",
                            "<string>:3 DL2002 \ESC[1m\ESC[93mwarning\ESC[0m:\
                            \ foo"
                          ]
      assertFormatter TTY checkFails expectation