speed up test execution by precompiling scripts

x250 faster!

agora-specs/Sample/Proposal/Cosign.hs

@@ -14,6 +14,7 @@ module Sample.Proposal.Cosign (
   mkTestTree,
 ) where
 
+import Agora.Governor (Governor (..))
 import Agora.Proposal (
   ProposalDatum (..),
   ProposalId (ProposalId),
@@ -22,19 +23,17 @@ import Agora.Proposal (
   ResultTag (ResultTag),
   emptyVotesFor,
  )
-import Agora.Proposal.Scripts (proposalValidator)
 import Agora.Proposal.Time (
   ProposalStartingTime (ProposalStartingTime),
   ProposalTimingConfig (draftTime),
  )
 import Agora.SafeMoney (GTTag)
+import Agora.Scripts (AgoraScripts (..))
 import Agora.Stake (
-  Stake (gtClassRef),
   StakeDatum (StakeDatum, owner),
   StakeRedeemer (WitnessStake),
   stakedAmount,
  )
-import Agora.Stake.Scripts (stakeValidator)
 import Data.Coerce (coerce)
 import Data.Default (def)
 import Data.List (sort)
@@ -61,15 +60,15 @@ import PlutusLedgerApi.V1.Value qualified as Value
 import PlutusTx.AssocMap qualified as AssocMap
 import Sample.Proposal.Shared (proposalTxRef, stakeTxRef)
 import Sample.Shared (
+  agoraScripts,
+  governor,
   minAda,
   proposalPolicySymbol,
   proposalValidatorHash,
   signer,
-  stake,
   stakeAssetClass,
   stakeValidatorHash,
  )
-import Sample.Shared qualified as Shared
 import Test.Specification (
   SpecificationTree,
   group,
@@ -149,7 +148,7 @@ cosign ps = builder
       sortValue $
         minAda
           <> Value.assetClassValue
-            (untag stake.gtClassRef)
+            (untag governor.gtClassRef)
             (untag perStakedGTs)
           <> sst
 
@@ -322,7 +321,7 @@ mkTestTree name ps isValid = group name [proposal, stake]
        in testValidator
             isValid
             "proposal"
-            (proposalValidator Shared.proposal)
+            agoraScripts.compiledProposalValidator
             proposalInputDatum
             (mkProposalRedeemer ps)
             (spend proposalRef)
@@ -334,7 +333,7 @@ mkTestTree name ps isValid = group name [proposal, stake]
        in testValidator
             isValid
             "stake"
-            (stakeValidator Shared.stake)
+            agoraScripts.compiledStakeValidator
             stakeInputDatum
             stakeRedeemer
             (spend $ mkStakeRef idx)