fix broken tests

agora-test/Spec/Sample/Proposal.hs

@@ -193,7 +193,7 @@ cosignProposal newSigners =
                       mconcat
                         [ Value.singleton "" "" 10_000_000
                         , Value.assetClassValue (untag stake.gtClassRef) 50_000_000
-                        , Value.singleton stakeSymbol "" 1
+                        , Value.assetClassValue stakeAssetClass 1
                         ]
                   , txOutDatumHash = Just (toDatumHash stakeDatum)
                   }
@@ -214,7 +214,7 @@ cosignProposal newSigners =
                     mconcat
                       [ Value.singleton "" "" 10_000_000
                       , Value.assetClassValue (untag stake.gtClassRef) 50_000_000
-                      , Value.singleton stakeSymbol "" 1
+                      , Value.assetClassValue stakeAssetClass 1
                       ]
                 , txOutDatumHash = Just (toDatumHash stakeDatum)
                 }

agora-test/Spec/Sample/Shared.hs

@@ -14,9 +14,10 @@ module Spec.Sample.Shared (
 
   -- ** Stake
   stake,
-  stakeSymbol,
+  stakeAssetClass,
   stakeValidatorHash,
   stakeAddress,
+  stakeSymbol,
 
   -- ** Governor
   governor,
@@ -42,6 +43,7 @@ import Agora.Governor.Scripts (
   proposalSTSymbolFromGovernor,
   proposalValidatorHashFromGovernor,
   stakeFromGovernor,
+  stakeSTAssetClassFromGovernor,
   stakeSTSymbolFromGovernor,
   stakeValidatorHashFromGovernor,
  )
@@ -66,6 +68,7 @@ import Plutus.V1.Ledger.Api (
   TxOutRef (TxOutRef),
  )
 import Plutus.V1.Ledger.Scripts (Validator, ValidatorHash)
+import Plutus.V1.Ledger.Value (AssetClass)
 import Plutus.V1.Ledger.Value qualified as Value
 
 --------------------------------------------------------------------------------
@@ -76,6 +79,9 @@ stake = stakeFromGovernor governor
 stakeSymbol :: CurrencySymbol
 stakeSymbol = stakeSTSymbolFromGovernor governor
 
+stakeAssetClass :: AssetClass
+stakeAssetClass = stakeSTAssetClassFromGovernor governor
+
 stakeValidatorHash :: ValidatorHash
 stakeValidatorHash = stakeValidatorHashFromGovernor governor
 
@@ -85,7 +91,8 @@ stakeAddress = Address (ScriptCredential stakeValidatorHash) Nothing
 governor :: Governor
 governor = Governor oref gt mc
   where
-    oref = TxOutRef "f28cd7145c24e66fd5bcd2796837aeb19a48a2656e7833c88c62a2d0450bd00d" 0
+    oref =
+      TxOutRef "f28cd7145c24e66fd5bcd2796837aeb19a48a2656e7833c88c62a2d0450bd00d" 0
     gt =
       Tagged $
         Value.assetClass

agora-test/Spec/Sample/Stake.hs

@@ -7,6 +7,7 @@ This module tests primarily the happy path for Stake creation
 -}
 module Spec.Sample.Stake (
   stake,
+  stakeAssetClass,
   stakeSymbol,
   validatorHashTN,
   signer,
@@ -60,7 +61,7 @@ validatorHashTN = let ValidatorHash vh = validatorHash (mkValidator $ stakeValid
 -- | This script context should be a valid transaction.
 stakeCreation :: ScriptContext
 stakeCreation =
-  let st = Value.singleton stakeSymbol validatorHashTN 1 -- Stake ST
+  let st = Value.assetClassValue stakeAssetClass 1 -- Stake ST
       datum :: Datum
       datum = Datum (toBuiltinData $ StakeDatum 424242424242 signer [])
    in ScriptContext
@@ -120,7 +121,7 @@ data DepositWithdrawExample = DepositWithdrawExample
 -- | Create a ScriptContext that deposits or withdraws, given the config for it.
 stakeDepositWithdraw :: DepositWithdrawExample -> ScriptContext
 stakeDepositWithdraw config =
-  let st = Value.singleton stakeSymbol validatorHashTN 1 -- Stake ST
+  let st = Value.assetClassValue stakeAssetClass 1 -- Stake ST
       stakeBefore :: StakeDatum
       stakeBefore = StakeDatum config.startAmount signer []