Skip to content

Commit

Permalink
Adapt tests
Browse files Browse the repository at this point in the history
  • Loading branch information
smelc committed Oct 2, 2023
1 parent a9ff874 commit fc10f21
Show file tree
Hide file tree
Showing 4 changed files with 12 additions and 12 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -20,7 +20,7 @@ hprop_golden_shelleyGovernanceAnswerPollNeg1Invalid = propertyOnce . H.moduleWor
outFile <- H.noteTempFile tempDir "answer-file.json"

result <- tryExecCardanoCLI
[ "legacy", "governance", "answer-poll"
[ "shelley", "governance", "answer-poll"
, "--poll-file", pollFile
, "--answer", "-1"
, "--out-file", outFile
Expand All @@ -37,7 +37,7 @@ hprop_golden_shelleyGovernanceAnswerPoll0 = propertyOnce . H.moduleWorkspace "go
outFile <- H.noteTempFile tempDir "answer-file.json"

void $ execCardanoCLI
[ "legacy", "governance", "answer-poll"
[ "shelley", "governance", "answer-poll"
, "--poll-file", pollFile
, "--answer", "0"
, "--out-file", outFile
Expand All @@ -52,7 +52,7 @@ hprop_golden_shelleyGovernanceAnswerPollPos1 = propertyOnce . H.moduleWorkspace
outFile <- H.noteTempFile tempDir "answer-file.json"

void $ execCardanoCLI
[ "legacy", "governance", "answer-poll"
[ "shelley", "governance", "answer-poll"
, "--poll-file", pollFile
, "--answer", "1"
, "--out-file", outFile
Expand All @@ -66,7 +66,7 @@ hprop_golden_shelleyGovernanceAnswerPollPos2Invalid = propertyOnce . H.moduleWor
outFile <- H.noteTempFile tempDir "answer-file.json"

result <- tryExecCardanoCLI
[ "legacy", "governance", "answer-poll"
[ "shelley", "governance", "answer-poll"
, "--poll-file", pollFile
, "--answer", "2"
, "--out-file", outFile
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -19,7 +19,7 @@ hprop_golden_shelleyGovernanceCreatePoll =
pollFile <- noteTempFile tempDir "poll.json"

stdout <- execCardanoCLI
[ "legacy", "governance", "create-poll"
[ "shelley", "governance", "create-poll"
, "--question", "Pineapples on pizza?"
, "--answer", "yes"
, "--answer", "no"
Expand All @@ -39,7 +39,7 @@ hprop_golden_shelleyGovernanceCreateLongPoll =
pollFile <- noteTempFile tempDir "poll.json"

stdout <- execCardanoCLI
[ "legacy", "governance", "create-poll"
[ "shelley", "governance", "create-poll"
, "--question", "What is the most adequate topping to put on a pizza (please consider all possibilities and take time to answer)?"
, "--answer", "pineapples"
, "--answer", "only traditional topics should go on a pizza, this isn't room for jokes"
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,7 @@ hprop_golden_shelleyGovernanceVerifyPoll = propertyOnce $ do
noteInputFile "test/cardano-cli-golden/files/golden/shelley/governance/cold.vk"

stdout <- BSC.pack <$> execCardanoCLI
[ "legacy", "governance", "verify-poll"
[ "shelley", "governance", "verify-poll"
, "--poll-file", pollFile
, "--tx-file", txFile
]
Expand All @@ -45,7 +45,7 @@ hprop_golden_shelleyGovernanceVerifyPollMismatch = propertyOnce $ do
txFile <- noteInputFile "test/cardano-cli-golden/files/golden/shelley/governance/verify/mismatch"

result <- tryExecCardanoCLI
[ "legacy", "governance", "verify-poll"
[ "shelley", "governance", "verify-poll"
, "--poll-file", pollFile
, "--tx-file", txFile
]
Expand All @@ -58,7 +58,7 @@ hprop_golden_shelleyGovernanceVerifyPollNoAnswer = propertyOnce $ do
txFile <- noteInputFile "test/cardano-cli-golden/files/golden/shelley/governance/verify/none"

result <- tryExecCardanoCLI
[ "legacy", "governance", "verify-poll"
[ "shelley", "governance", "verify-poll"
, "--poll-file", pollFile
, "--tx-file", txFile
]
Expand All @@ -71,7 +71,7 @@ hprop_golden_shelleyGovernanceVerifyPollMalformedAnswer = propertyOnce $ do
txFile <- noteInputFile "test/cardano-cli-golden/files/golden/shelley/governance/verify/malformed"

result <- tryExecCardanoCLI
[ "legacy", "governance", "verify-poll"
[ "shelley", "governance", "verify-poll"
, "--poll-file", pollFile
, "--tx-file", txFile
]
Expand All @@ -84,7 +84,7 @@ hprop_golden_shelleyGovernanceVerifyPollInvalidAnswer = propertyOnce $ do
txFile <- noteInputFile "test/cardano-cli-golden/files/golden/shelley/governance/verify/invalid"

result <- tryExecCardanoCLI
[ "legacy", "governance", "verify-poll"
[ "shelley", "governance", "verify-poll"
, "--poll-file", pollFile
, "--tx-file", txFile
]
Expand Down
2 changes: 1 addition & 1 deletion cardano-cli/test/cardano-cli-golden/Test/Golden/TxView.hs
Original file line number Diff line number Diff line change
Expand Up @@ -259,7 +259,7 @@ hprop_golden_view_alonzo =
-- Create update proposal
void $
execCardanoCLI
[ "legacy", "governance", "create-update-proposal"
[ "alonzo", "governance", "create-update-proposal"
, "--epoch", "190"
, "--genesis-verification-key-file"
, "test/cardano-cli-golden/files/golden/shelley/keys/genesis_keys/verification_key"
Expand Down

0 comments on commit fc10f21

Please sign in to comment.