speed up test execution by precompiling scripts

x250 faster!

agora-specs/Sample/Proposal/Advance.hs

@@ -37,15 +37,11 @@ module Sample.Proposal.Advance (
   mkBadGovernorOutputDatumBundle,
 ) where
 
-import Agora.AuthorityToken (
-  AuthorityToken (AuthorityToken),
-  authorityTokenPolicy,
- )
 import Agora.Governor (
+  Governor (..),
   GovernorDatum (..),
   GovernorRedeemer (MintGATs),
  )
-import Agora.Governor.Scripts (governorValidator)
 import Agora.Proposal (
   ProposalDatum (..),
   ProposalId (ProposalId),
@@ -56,7 +52,6 @@ import Agora.Proposal (
   ResultTag (ResultTag),
   emptyVotesFor,
  )
-import Agora.Proposal.Scripts (proposalValidator)
 import Agora.Proposal.Time (
   ProposalStartingTime (ProposalStartingTime),
   ProposalTimingConfig (
@@ -66,12 +61,11 @@ import Agora.Proposal.Time (
     votingTime
   ),
  )
+import Agora.Scripts (AgoraScripts (..))
 import Agora.Stake (
-  Stake (gtClassRef),
   StakeDatum (..),
   StakeRedeemer (WitnessStake),
  )
-import Agora.Stake.Scripts (stakeValidator)
 import Agora.Utils (validatorHashToTokenName)
 import Control.Monad.State (execState, modify, when)
 import Data.Default (def)
@@ -107,18 +101,18 @@ import Sample.Proposal.Shared (
   stakeTxRef,
  )
 import Sample.Shared (
+  agoraScripts,
   authorityTokenSymbol,
   govAssetClass,
   govValidatorHash,
+  governor,
   minAda,
   proposalPolicySymbol,
   proposalValidatorHash,
   signer,
-  stake,
   stakeAssetClass,
   stakeValidatorHash,
  )
-import Sample.Shared qualified as Shared
 import Test.Specification (
   SpecificationTree,
   group,
@@ -394,7 +388,7 @@ mkStakeBuilder ps =
           minAda
             <> Value.assetClassValue stakeAssetClass 1
             <> Value.assetClassValue
-              (untag stake.gtClassRef)
+              (untag governor.gtClassRef)
               ps.perStakeGTs
       perStake idx i o =
         let withSig =
@@ -565,7 +559,7 @@ mkTestTree name pb val =
             testValidator
               val.forProposalValidator
               "proposal"
-              (proposalValidator Shared.proposal)
+              agoraScripts.compiledProposalValidator
               proposalInputDatum
               proposalRedeemer
               (spend proposalRef)
@@ -576,7 +570,7 @@ mkTestTree name pb val =
             testValidator
               val.forStakeValidator
               "stake"
-              (stakeValidator Shared.stake)
+              agoraScripts.compiledStakeValidator
               (getStakeInputDatumAt pb.stakeParameters idx)
               stakeRedeemer
               ( spend (mkStakeRef idx)
@@ -586,7 +580,7 @@ mkTestTree name pb val =
       testValidator
         (fromJust val.forGovernorValidator)
         "governor"
-        (governorValidator Shared.governor)
+        agoraScripts.compiledGovernorValidator
         governorInputDatum
         governorRedeemer
         (spend governorRef)
@@ -596,7 +590,7 @@ mkTestTree name pb val =
       testPolicy
         (fromJust val.forAuthorityTokenPolicy)
         "authority"
-        (authorityTokenPolicy $ AuthorityToken Shared.govAssetClass)
+        agoraScripts.compiledAuthorityTokenPolicy
         authorityTokenRedeemer
         (mint authorityTokenSymbol)
         <$ (pb.authorityTokenParameters)