hadolint-2.1.0: test/DL3051.hs

module DL3051 (tests) where

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 [("emptylabel", Rule.RawText)]) False
  describe "DL3051 - Label `<label>` is empty." $ do
    it "not ok with label empty" $ do
      ruleCatches "DL3051" "LABEL emptylabel=\"\""
      onBuildRuleCatches "DL3051" "LABEL emptylabel=\"\""
    it "ok with label not empty" $ do
      ruleCatchesNot "DL3051" "LABEL emptylabel=\"foo\""
      onBuildRuleCatchesNot "DL3051" "LABEL emptylabel=\"bar\""
    it "ok with other label empty" $ do
      ruleCatchesNot "DL3051" "LABEL other=\"\""
      onBuildRuleCatchesNot "DL3051" "LABEL other=\"\""