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

add a property test for pupdate and updateMap

Browse source
This commit is contained in:
fanghr 2022-05-20 03:15:21 +08:00
parent 67a5f3a54d
commit 8a408f3ab0
3 changed files with 87 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -246,7 +246,7 @@ closedBoundedInterval from to = PlutusTx.intersection (PlutusTx.from from) (Plut
--------------------------------------------------------------------------------
{- | / O(n) /. The expression @'updateMap' f k v@ will update the value @x@ at key @k@.
If @f x@ is Nothing, the key-value pair will be deleted from the map, otherwise the
If @f x@ is Nothing, the key-value pair will be deleted from the map, otherwise the
value will be updated.
-}
updateMap :: Eq k => (v -> Maybe v) -> k -> AssocMap.Map k v -> AssocMap.Map k v