Enable CDDL test file to be found in both cabal and nix builds

CardanoSolutions · Nov 2, 2023 · 517eae2 · 517eae2
1 parent 417ddbe
commit 517eae2
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 2 deletions.
diff --git a/cardano-node/ledger_events.cddl → cardano-node/test-data/ledger_events.cddl b/cardano-node/ledger_events.cddl → cardano-node/test-data/ledger_events.cddl
diff --git a/cardano-node/test/Test/Cardano/Node/LedgerEvent.hs b/cardano-node/test/Test/Cardano/Node/LedgerEvent.hs
@@ -21,15 +21,20 @@ import           Data.String (IsString(..))
 import           Data.Text (Text)
 import           Hedgehog (Property, discover, footnote)
 import qualified Hedgehog
+import qualified Hedgehog.Internal.Property as Hedgehog
+import qualified Hedgehog.Extras.Test.Process as Hedgehog
 import qualified Hedgehog.Gen as Gen
 import qualified Hedgehog.Range as Range
+import           System.FilePath ((</>))
 import           System.IO.Unsafe (unsafePerformIO)
 import qualified Data.Text as T
 import qualified Data.Text.IO as TIO
 
 specification :: Text
 specification =
-  unsafePerformIO $ TIO.readFile "./ledger_events.cddl"
+  unsafePerformIO $ do
+    base <- either (fail . show) pure . fst =<< Hedgehog.runTestT Hedgehog.getProjectBase
+    TIO.readFile $ base </> "cardano-node/test-data/ledger_events.cddl"
 {-# NOINLINE specification #-}
 
 prop_roundtrip_LedgerEvent_CBOR :: Property

diff --git a/nix/haskell.nix b/nix/haskell.nix
@@ -225,7 +225,9 @@ let
               packages.cardano-node.components.tests.cardano-node-test.preCheck =
                 let
                   # This define files included in the directory that will be passed to `H.getProjectBase` for this test:
-                  filteredProjectBase = incl ../. mainnetConfigFiles;
+                  filteredProjectBase = incl ../. (mainnetConfigFiles ++ [
+                    "cardano-node/test-data/ledger_events.cddl"
+                  ]);
                 in
                 ''
                   export CARDANO_NODE_SRC=${filteredProjectBase}