@@ -44,7 +44,7 @@ import qualified Hedgehog.Extras as H
4444-- Voting NO
4545-- Proposing NO
4646-- Execute me with:
47- -- @DISABLE_RETRIES=1 cabal run cardano-testnet-test -- -p "/Spec.hs.Spec.Ledger Events.Plutus.Scripts /"@
47+ -- @DISABLE_RETRIES=1 cabal run cardano-testnet-test -- -p "/PlutusV3 purposes /"@
4848hprop_plutus_purposes_v3 :: Property
4949hprop_plutus_purposes_v3 = integrationWorkspace " all-plutus-script-purposes" $ \ tempAbsBasePath' -> H. runWithDefaultWatchdog_ $ do
5050 conf@ Conf { tempAbsPath } <- mkConf tempAbsBasePath'
@@ -190,11 +190,12 @@ hprop_plutus_purposes_v3 = integrationWorkspace "all-plutus-script-purposes" $ \
190190 ]
191191
192192 H. success
193-
193+ -- TODO: Left off here. The transaction has a v3 script but you are reading a v2 script!
194+ -- The hash is also different inside the transaction!
194195
195196-- |
196197-- Execute me with:
197- -- @DISABLE_RETRIES=1 cabal test cardano-testnet-test --test-options '-p "/PlutusV2 Create transaction with two script certs/"'@
198+ -- @DISABLE_RETRIES=1 cabal test cardano-testnet-test --test-options '-p "/PlutusV2 transaction with two script certs/"'@
198199hprop_tx_two_script_certs_v2 :: Property
199200hprop_tx_two_script_certs_v2 = integrationWorkspace " tx-2-script-certs" $ \ tempAbsBasePath' -> H. runWithDefaultWatchdog_ $ do
200201 conf@ Conf { tempAbsPath } <- mkConf tempAbsBasePath'
@@ -229,7 +230,7 @@ hprop_tx_two_script_certs_v2 = integrationWorkspace "tx-2-script-certs" $ \tempA
229230 txin <- T. unpack . renderTxIn <$> findLargestUtxoForPaymentKey epochStateView sbe wallet0
230231
231232 plutusScript <- H. note $ work </> " always-succeeds-script.plutusV2"
232- H. writeFile plutusScript $ T. unpack plutusV2StakeScript
233+ H. writeFile plutusScript $ T. unpack plutusV3Script
233234
234235 scriptStakeRegistrationCertificate
235236 <- H. note $ work </> " script-stake-registration-certificate"
@@ -257,7 +258,9 @@ hprop_tx_two_script_certs_v2 = integrationWorkspace "tx-2-script-certs" $ \tempA
257258 let txbody = work </> " two-certs-tx-body"
258259 tx = work </> " two-certs-tx"
259260 txout = mconcat [ utxoAddr, " +" , show @ Int 2_000_000 ]
260-
261+
262+ s <- execCli' execConfig [anyEraToString anyEra, " transaction" , " policyid" , " --script-file" , plutusScript]
263+ H. note_ $ " Script hash: " <> s
261264 let txBuildArgs =
262265 [ anyEraToString anyEra, " transaction" , " build"
263266 , " --change-address" , T. unpack $ paymentKeyInfoAddr wallet0
0 commit comments