diff --git a/plutarch-unit/src/Plutarch/Test/Script.hs b/plutarch-unit/src/Plutarch/Test/Script.hs index c2bf073..6e5f137 100644 --- a/plutarch-unit/src/Plutarch/Test/Script.hs +++ b/plutarch-unit/src/Plutarch/Test/Script.hs @@ -38,7 +38,7 @@ import Test.Tasty.Providers ( -------------------------------------------------------------------------------- -import Plutarch.Evaluate (evalScript) +import Plutarch.Evaluate (evalScriptHuge) import Plutarch.Script (Script) import Test.Tasty (testGroup) @@ -149,8 +149,8 @@ runScript script debug onSuccess = case scriptResult of (Right _, _, _) -> (ScriptSuccess, onSuccess) (Left err, _, _) -> (ScriptFailure, showError dTrace (show err)) where - scriptResult = evalScript script - (_, _, dTrace) = evalScript debug + scriptResult = evalScriptHuge script + (_, _, dTrace) = evalScriptHuge debug showError :: [Text] -> String -> String showError traces err =