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

move scriptTest to Util module

Browse source
This commit is contained in:
Emily Martins 2022-03-15 17:25:44 +01:00
parent 9dc89bcf55
commit b58ccfd785
3 changed files with 30 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
agora-test/Spec/Util.hs Normal file
View file

@ -0,0 +1,25 @@
module Spec.Util (scriptTest) where
--------------------------------------------------------------------------------
import Prelude
--------------------------------------------------------------------------------
import Test.Tasty (TestTree)
import Test.Tasty.HUnit (assertFailure, testCase)
--------------------------------------------------------------------------------
import Plutarch.Evaluate (evalScript)
import Plutus.V1.Ledger.Scripts (Script)
--------------------------------------------------------------------------------
scriptTest :: String -> Script -> TestTree
scriptTest name script = testCase name $ do
let (res, _budget, traces) = evalScript script
case res of
Left e -> do
assertFailure (show e <> " Traces: " <> show traces)
Right _v -> pure ()