Now it checks specific treasury

Emily's suggestion on the review
This commit is contained in:
Seungheon Oh 2022-04-22 11:18:38 -04:00
parent 17817ba68b
commit ec46273b5b
4 changed files with 64 additions and 34 deletions

View file

@ -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