Skip to content

Commit

Permalink
Expect a comma-separated string in the tests
Browse files Browse the repository at this point in the history
noonio committed Jan 13, 2025
1 parent fac9a5b commit a8f6f52
Showing 2 changed files with 3 additions and 2 deletions.
1 change: 1 addition & 0 deletions hydra-cluster/hydra-cluster.cabal
Original file line number Diff line number Diff line change
@@ -178,6 +178,7 @@ test-suite tests
, lens-aeson
, process
, QuickCheck
, split
, stm
, text
, time
4 changes: 2 additions & 2 deletions hydra-cluster/test/Test/DirectChainSpec.hs
Original file line number Diff line number Diff line change
@@ -19,7 +19,7 @@ import CardanoNode (NodeLog, withCardanoNodeDevnet)
import Control.Concurrent.STM (newEmptyTMVarIO, takeTMVar)
import Control.Concurrent.STM.TMVar (putTMVar)
import Control.Lens ((<>~))
import Data.List qualified as List
import Data.List.Split (splitWhen)
import Data.Set qualified as Set
import Hydra.Cardano.Api (
ChainPoint (..),
@@ -427,7 +427,7 @@ spec = around (showLogsOnFailure "DirectChainSpec") $ do
)
)
""
let hydraScriptsTxId = fromString <$> List.lines hydraScriptsTxIdStr
let hydraScriptsTxId = fromString <$> splitWhen (== ',') (filter (/= '\n') hydraScriptsTxIdStr)
failAfter 5 $ void $ queryScriptRegistry networkId nodeSocket hydraScriptsTxId

it "can only contest once" $ \tracer -> do

0 comments on commit a8f6f52

Please sign in to comment.