Skip dotslash tests if not installed

Author: brandonchinn178

test/KDL/ParserSpec.hs

@@ -4,13 +4,15 @@
 module KDL.ParserSpec (spec) where
 
 import Control.Monad (forM_)
+import Data.Maybe (isJust)
 import Data.Text.IO qualified as Text
 import KDL qualified
 import Skeletest
 import Skeletest.Predicate qualified as P
 import System.Directory (findExecutable, listDirectory)
 import System.FilePath (takeExtension, (</>))
 import System.IO.Temp (withSystemTempDirectory)
+import System.IO.Unsafe (unsafePerformIO)
 import System.Process (callProcess)
 
 spec :: Spec
@@ -44,7 +46,7 @@ spec = do
         -- tested in `parse`
         actual `shouldBe` expected
 
-  describe "kdl-test examples" $ do
+  (if dotSlashInstalled then id else skip "dotslash not installed") . describe "kdl-test examples" $ do
     it "decodes correctly" $ do
       decoder <- findExecutable "kdl-hs-test-decoder" >>= maybe (error "Could not find kdl-hs-test-decoder") pure
       callProcess "scripts/kdl-test" ["run", "--decoder", decoder]
@@ -58,3 +60,6 @@ spec = do
         context file $ do
           content <- Text.readFile (dir </> "valid" </> file)
           (fmap KDL.render . KDL.parse) content `shouldBe` Right content
+
+dotSlashInstalled :: Bool
+dotSlashInstalled = unsafePerformIO $ isJust <$> findExecutable "dotslash"