Now it checks specific treasury
Emily's suggestion on the review
This commit is contained in:
parent
17817ba68b
commit
ec46273b5b
4 changed files with 64 additions and 34 deletions
|
|
@ -156,7 +156,7 @@ effectFailsWith ::
|
|||
TestTree
|
||||
effectFailsWith tag eff datum scriptContext =
|
||||
validatorFailsWith tag eff datum () scriptContext
|
||||
|
||||
|
||||
-- | Check that an arbitrary script doesn't error when evaluated, given a name.
|
||||
scriptSucceeds :: String -> Script -> TestTree
|
||||
scriptSucceeds name script = testCase name $ do
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue