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

regression tests for SST exploit

Browse source
This commit is contained in:
Hongrui Fang 2022-11-01 23:29:19 +08:00
parent 93700ecf39
commit 7f80db7af5
3 changed files with 84 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
agora-specs/Spec/Stake.hs
View file

@ -29,6 +29,7 @@ import Sample.Stake qualified as Stake (
import Sample.Stake.Create qualified as Create
import Sample.Stake.Destroy qualified as Destroy
import Sample.Stake.SetDelegate qualified as SetDelegate
import Sample.Stake.UnauthorizedMintingExploit qualified as UnauthorizedMintingExploit
import Test.Specification (
SpecificationTree,
group,
@ -179,5 +180,13 @@ specs =
SetDelegate.invalidOutputStakeDatumParameters
False
]
, group
"unauthorized SST minting exploit"
$ map
( UnauthorizedMintingExploit.mkTestCase
"(negative test)"
. UnauthorizedMintingExploit.Parameters
)
[1 .. 20]
]
]