hadolint-2.1.0: test/DL3049.hs

module DL3049 (tests) where

import Data.Text as Text
import qualified Data.Map as Map
import qualified Hadolint.Process
import qualified Hadolint.Rule as Rule
import Helpers
import Test.Hspec


tests :: SpecWith ()
tests = do
  let ?rulesConfig = Hadolint.Process.RulesConfig [] (Map.fromList [("foo", Rule.RawText)]) False
  describe "DL3049 - Missing label rule tests" $ do
  -- single stage tests
    it "not ok: single stage, no label" $ do
      ruleCatches "DL3049" "FROM baseimage"
      onBuildRuleCatches "DL3049" "FROM baseimage"
    it "not ok: single stage, wrong label" $ do
      ruleCatches "DL3049" "FROM baseimage\nLABEL bar=\"baz\""
      onBuildRuleCatches "DL3049" "FROM baseimage\nLABEL bar=\"baz\""
    it "ok: single stage, label present" $ do
      ruleCatchesNot "DL3049" "FROM baseimage\nLABEL foo=\"bar\""
      onBuildRuleCatchesNot "DL3049" "FROM baseimage\nLABEL foo=\"bar\""
  -- multi stage tests
    it "warn twice: two stages, no labels" $
      let dockerFile =
            [ "FROM stage1",
              "FROM stage2"
            ]
       in assertChecks
            (Text.unlines dockerFile)
            (failsWith 2 "DL3049")
    it "warn twice: two stages, wrong labels only" $
      let dockerFile =
            [ "FROM stage1",
              "LABEL bar=\"baz\"",
              "FROM stage2",
              "LABEL buzz=\"fuzz\""
            ]
       in assertChecks
            (Text.unlines dockerFile)
            (failsWith 2 "DL3049")
    it "warn once: two stages, label present in second only" $
      let dockerFile =
            [ "FROM baseimage",
              "FROM newimage",
              "LABEL foo=\"bar\""
            ]
       in assertChecks
            (Text.unlines dockerFile)
            (failsWith 1 "DL3049")
    it "warn once: two stages, no inheritance, wrong label in one" $
      let dockerFile =
            [ "FROM baseimage",
              "LABEL baz=\"bar\"",
              "FROM newimage",
              "LABEL foo=\"bar\""
            ]
       in assertChecks
            (Text.unlines dockerFile)
            (failsWith 1 "DL3049")
    it "warn once: two stages, inheritance, label only defined in second stage" $
      let dockerFile =
            [ "FROM baseimage as base",
              "FROM base",
              "LABEL foo=\"bar\""
            ]
       in assertChecks
            (Text.unlines dockerFile)
            (failsWith 1 "DL3049")
    it "don't warn: two stages, inheritance" $
      let dockerFile =
            [ "FROM baseimage as base",
              "LABEL foo=\"bar\"",
              "FROM base"
            ]
       in assertChecks
            (Text.unlines dockerFile)
            (failsWith 0 "DL3049")