phino-0.0.0.10: test/YamlSpec.hs

-- SPDX-FileCopyrightText: Copyright (c) 2025 Objectionary.com
-- SPDX-License-Identifier: MIT

module YamlSpec where

import Control.Monad
import Misc
import System.FilePath
import Test.Hspec (Spec, describe, it, runIO, shouldReturn)
import Yaml (yamlRule)

spec :: Spec
spec =
  describe "parses yaml rule" $ do
    let resources = "test-resources/yaml-packs"
    packs <- runIO (allPathsIn resources)
    forM_
      packs
      ( \pth -> it (makeRelative resources pth) $ do
          _ <- yamlRule pth
          pure () `shouldReturn` ()
      )