Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

fix the test

Browse source
This commit is contained in:
Hongrui Fang 2023-03-24 21:01:25 +08:00
parent 897a678fc0
commit 5f43cb990f
5 changed files with 227 additions and 309 deletions
Download patch file Download diff file Expand all files Collapse all files

7
agora-testlib/Test/Util.hs
View file

@ -23,6 +23,7 @@ module Test.Util (
mkSpending,
mkMinting,
CombinableBuilder,
subtractValue,
) where
--------------------------------------------------------------------------------
@ -45,6 +46,7 @@ import Plutarch.Context (
import Plutarch.Crypto (pblake2b_256)
import PlutusLedgerApi.V1.Interval qualified as PlutusTx
import PlutusLedgerApi.V1.Value (Value (..))
import PlutusLedgerApi.V1.Value qualified as Value
import PlutusLedgerApi.V2 (
Credential (
PubKeyCredential,
@ -212,3 +214,8 @@ mkMinting mkBuilder ps cs =
mkBuilder ps <> withMinting cs
type CombinableBuilder b = (Monoid b, Builder b)
--------------------------------------------------------------------------------
subtractValue :: Value -> Value -> Value
subtractValue = Value.unionWith (-)