use v2 types

agora-testlib/Test/Specification.hs

@@ -49,18 +49,26 @@ module Test.Specification (
   toTestTree,
 ) where
 
-import Agora.Utils (CompiledEffect (..), CompiledMintingPolicy (..), CompiledValidator (..))
+import Agora.Utils (
+  CompiledEffect (..),
+  CompiledMintingPolicy (..),
+  CompiledValidator (..),
+ )
 import Control.Composition ((.**), (.***))
 import Data.Coerce (coerce)
 import Plutarch.Evaluate (evalScript)
-import PlutusLedgerApi.V1 (
+import PlutusLedgerApi.V1.Scripts (
+  Context (..),
+  applyMintingPolicyScript,
+  applyValidator,
+ )
+import PlutusLedgerApi.V2 (
   Datum (..),
   Redeemer (Redeemer),
   Script,
   ScriptContext,
   ToData (toBuiltinData),
  )
-import PlutusLedgerApi.V1.Scripts (Context (..), applyMintingPolicyScript, applyValidator)
 import PlutusTx.IsData qualified as PlutusTx (ToData)
 import Test.Tasty (TestTree, testGroup)
 import Test.Tasty.HUnit (assertFailure, testCase)

agora-testlib/Test/Util.hs

@@ -36,13 +36,16 @@ import Data.ByteString.Lazy qualified as ByteString.Lazy
 import Data.List (sortOn)
 import Plutarch.Context (
   Builder,
-  buildMintingUnsafe,
-  buildSpendingUnsafe,
+  buildMinting',
+  buildSpending',
   withMinting,
   withSpendingOutRef,
  )
 import Plutarch.Crypto (pblake2b_256)
-import PlutusLedgerApi.V1 (
+import PlutusLedgerApi.V1.Interval qualified as PlutusTx
+import PlutusLedgerApi.V1.Scripts (Datum (Datum), DatumHash (DatumHash))
+import PlutusLedgerApi.V1.Value (Value (..))
+import PlutusLedgerApi.V2 (
   Credential (
     PubKeyCredential,
     ScriptCredential
@@ -53,9 +56,6 @@ import PlutusLedgerApi.V1 (
   TxOutRef,
   ValidatorHash (ValidatorHash),
  )
-import PlutusLedgerApi.V1.Interval qualified as PlutusTx
-import PlutusLedgerApi.V1.Scripts (Datum (Datum), DatumHash (DatumHash))
-import PlutusLedgerApi.V1.Value (Value (..))
 import PlutusTx.AssocMap qualified as AssocMap
 import PlutusTx.Builtins qualified as PlutusTx
 import PlutusTx.IsData qualified as PlutusTx
@@ -190,7 +190,7 @@ mkSpending ::
   TxOutRef ->
   ScriptContext
 mkSpending mkBuilder ps oref =
-  buildSpendingUnsafe $
+  buildSpending' $
     mkBuilder ps <> withSpendingOutRef oref
 
 {- | Given the builder generator and the parameters, create a 'ScriptContext'
@@ -203,7 +203,7 @@ mkMinting ::
   CurrencySymbol ->
   ScriptContext
 mkMinting mkBuilder ps cs =
-  buildMintingUnsafe $
+  buildMinting' $
     mkBuilder ps <> withMinting cs
 
 type CombinableBuilder b = (Monoid b, Builder b)