Sulkta-Coop/agora
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add tests for governor mutation

Browse source
This commit is contained in:
Hongrui Fang 2022-07-20 20:44:20 +08:00
parent c450e1252d
commit eb407b98c4
No known key found for this signature in database
GPG key ID: 1E0454204FC7D755
6 changed files with 329 additions and 64 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -19,6 +19,7 @@ module Test.Util (
scriptCredentials,
validatorHashes,
groupsOfN,
withOptional,
) where
--------------------------------------------------------------------------------
@ -31,6 +32,7 @@ import Data.ByteString qualified as BS
import Data.ByteString.Char8 qualified as C
import Data.ByteString.Lazy qualified as ByteString.Lazy
import Data.List (sortOn)
import Plutarch.Context (UTXO)
import Plutarch.Crypto (pblake2b_256)
import PlutusLedgerApi.V1 (Credential (PubKeyCredential, ScriptCredential), PubKeyHash (..), ValidatorHash (ValidatorHash))
import PlutusLedgerApi.V1.Interval qualified as PlutusTx
@ -156,3 +158,13 @@ groupsOfN n xs =
next n (x : xs) =
let (xs', rest) = next (n - 1) xs
in (x : xs', rest)
--------------------------------------------------------------------------------
withOptional ::
(a -> UTXO -> UTXO) ->
Maybe a ->
UTXO ->
UTXO
withOptional f (Just b) = f b
withOptional _ _ = id