Expose Byron CDDLs in Test.Cardano.Chain.Binary.Cddl

Author: jasagredo

eras/byron/ledger/impl/cardano-ledger-byron.cabal

@@ -9,6 +9,7 @@ description: The blockchain layer of Cardano during the Byron era
 category: Currency
 build-type: Simple
 data-files:
+  cddl-spec/byron.cddl
   golden/cbor/block/BlockSignature
   golden/cbor/block/Body
   golden/cbor/block/BoundaryBlockHeader
@@ -265,6 +266,7 @@ library
 
 library testlib
   exposed-modules:
+    Test.Cardano.Chain.Binary.Cddl
     Test.Cardano.Chain.Block.CBOR
     Test.Cardano.Chain.Block.Gen
     Test.Cardano.Chain.Block.Model

eras/byron/ledger/impl/testlib/Test/Cardano/Chain/Binary/Cddl.hs

@@ -0,0 +1,17 @@
+{-# LANGUAGE ImplicitPrelude #-}
+
+module Test.Cardano.Chain.Binary.Cddl (
+  readByronCddlFileNames,
+  readByronCddlFiles,
+) where
+
+import qualified Data.ByteString.Lazy as BSL
+import Paths_cardano_ledger_byron
+
+readByronCddlFileNames :: IO [FilePath]
+readByronCddlFileNames = do
+  base <- getDataFileName "cddl-spec/byron.cddl"
+  pure [base]
+
+readByronCddlFiles :: IO [BSL.ByteString]
+readByronCddlFiles = mapM BSL.readFile =<< readByronCddlFileNames