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

bump plutarch to staging rev

Browse source
This commit is contained in:
Emily Martins 2022-03-11 18:05:30 +01:00
parent 6e736eea40
commit b57d7bde6e
7 changed files with 120 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

8
agora-test/Spec/Stake.hs
View file

@ -12,7 +12,7 @@ import Test.Tasty.HUnit (assertFailure, testCase)
--------------------------------------------------------------------------------
import Plutarch (compile)
import Plutarch.Evaluate (evaluateScript)
import Plutarch.Evaluate (evalScript)
import Plutus.V1.Ledger.Scripts (Script)
--------------------------------------------------------------------------------
@ -34,6 +34,8 @@ tests =
scriptTest :: String -> Script -> TestTree
scriptTest name script = testCase name $ do
case evaluateScript script of
Left e -> assertFailure (show e)
let (res, _budget, traces) = evalScript script
case res of
Left e -> do
assertFailure (show e <> " Traces: " <> show traces)
Right _v -> pure ()