Implement tests for updated stake address registration and

deregistration commands
IntersectMBO · Jun 22, 2021 · bb88222 · bb88222
1 parent d71b858
commit bb88222
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 0 deletions.
diff --git a/cardano-cli/test/Test/Golden/Shelley/StakeAddress/DeregistrationCertificate.hs b/cardano-cli/test/Test/Golden/Shelley/StakeAddress/DeregistrationCertificate.hs
@@ -17,6 +17,8 @@ golden_shelleyStakeAddressDeregistrationCertificate :: Property
 golden_shelleyStakeAddressDeregistrationCertificate = propertyOnce . H.moduleWorkspace "tmp" $ \tempDir -> do
   verificationKeyFile <- noteInputFile "test/data/golden/shelley/keys/stake_keys/verification_key"
   deregistrationCertFile <- noteTempFile tempDir "deregistrationCertFile"
+  scriptDeregistrationCertFile <- noteTempFile tempDir "scripDeregistrationCertFile"
+  exampleScript <- noteInputFile "../scripts/plutus/scripts/typed-guessing-game-redeemer-42-datum-42.plutus"
 
   void $ execCardanoCLI
     [ "stake-address","deregistration-certificate"
@@ -26,4 +28,13 @@ golden_shelleyStakeAddressDeregistrationCertificate = propertyOnce . H.moduleWor
 
   H.assertFileOccurences 1 "Stake Address Deregistration Certificate" deregistrationCertFile
 
+  void $ execCardanoCLI
+    [ "stake-address","deregistration-certificate"
+    , "--stake-script-file", exampleScript
+    , "--out-file", scriptDeregistrationCertFile
+    ]
+
+  H.assertFileOccurences 1 "Stake Address Deregistration Certificate" scriptDeregistrationCertFile
+
+
   H.assertEndsWithSingleNewline deregistrationCertFile
diff --git a/cardano-cli/test/Test/Golden/Shelley/StakeAddress/RegistrationCertificate.hs b/cardano-cli/test/Test/Golden/Shelley/StakeAddress/RegistrationCertificate.hs
@@ -17,6 +17,8 @@ golden_shelleyStakeAddressRegistrationCertificate :: Property
 golden_shelleyStakeAddressRegistrationCertificate = propertyOnce . H.moduleWorkspace "tmp" $ \tempDir -> do
   keyGenStakingVerificationKeyFile <- noteInputFile "test/data/golden/shelley/keys/stake_keys/verification_key"
   registrationCertFile <- noteTempFile tempDir "registration.cert"
+  scriptRegistrationCertFile <- noteTempFile tempDir "script-registration.cert"
+  exampleScript <- noteInputFile "../scripts/plutus/scripts/typed-guessing-game-redeemer-42-datum-42.plutus"
 
   void $ execCardanoCLI
     [ "stake-address","registration-certificate"
@@ -26,4 +28,13 @@ golden_shelleyStakeAddressRegistrationCertificate = propertyOnce . H.moduleWorks
 
   H.assertFileOccurences 1 "Stake Address Registration Certificate" registrationCertFile
 
+  void $ execCardanoCLI
+    [ "stake-address","registration-certificate"
+    , "--stake-script-file", exampleScript
+    , "--out-file", scriptRegistrationCertFile
+    ]
+
+  H.assertFileOccurences 1 "Stake Address Registration Certificate" scriptRegistrationCertFile
+
+
   H.assertEndsWithSingleNewline registrationCertFile