From f280bf8725685279a393c5ae7c7528e4b4b7f7d2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jann=20M=C3=BCller?= <j-mueller@users.noreply.github.com>
Date: Thu, 2 Jan 2025 18:09:22 +0100
Subject: [PATCH] Delete node params (not required anymore)

---
 src/test/unit/Wst/Test/UnitTest.hs | 18 +++---------------
 src/wst-poc.cabal                  |  1 -
 2 files changed, 3 insertions(+), 16 deletions(-)

diff --git a/src/test/unit/Wst/Test/UnitTest.hs b/src/test/unit/Wst/Test/UnitTest.hs
index 63f2fab..3753c2a 100644
--- a/src/test/unit/Wst/Test/UnitTest.hs
+++ b/src/test/unit/Wst/Test/UnitTest.hs
@@ -6,9 +6,8 @@ module Wst.Test.UnitTest(
 import Cardano.Api qualified as C
 import Cardano.Api.Shelley qualified as C
 import Cardano.Ledger.Api qualified as Ledger
-import Cardano.Ledger.Plutus.ExUnits qualified as Ledger
 import Cardano.Ledger.Shelley.TxCert qualified as TxCert
-import Control.Lens (set, (%~), (&), (^.))
+import Control.Lens ((%~), (&), (^.))
 import Control.Monad (void)
 import Control.Monad.Reader (MonadReader (ask), ReaderT (runReaderT), asks)
 import Convex.BuildTx (MonadBuildTx, addCertificate)
@@ -28,7 +27,6 @@ import Convex.Wallet.Operator (signTxOperator)
 import Convex.Wallet.Operator qualified as Operator
 import Data.List (isPrefixOf)
 import Data.String (IsString (..))
-import Data.Word (Word32)
 import GHC.Exception (SomeException, throw)
 import SmartTokens.Core.Scripts (ScriptTarget (Debug, Production))
 import Test.Tasty (TestTree, testGroup)
@@ -41,16 +39,6 @@ import Wst.Offchain.Query qualified as Query
 import Wst.Offchain.Scripts qualified as Scripts
 import Wst.Test.Env (admin, asAdmin, asWallet, user)
 
-testTxSize :: Word32
-testTxSize = 16384
-
-testNodeParams :: NodeParams C.ConwayEra
-testNodeParams =
-  -- restrict script bugdet to current value on mainnet
-  let newExUnits = Ledger.ExUnits {Ledger.exUnitsSteps = 10_000_000_000, Ledger.exUnitsMem = 14_000_000}
-      npsTx = Defaults.nodeParams & set (ledgerProtocolParameters . protocolParameters . Ledger.ppMaxTxSizeL) testTxSize
-  in npsTx & set (ledgerProtocolParameters . protocolParameters . Ledger.ppMaxTxExUnitsL) newExUnits
-
 tests :: TestTree
 tests = testGroup "unit tests"
   [ scriptTargetTests Debug
@@ -323,8 +311,8 @@ nodeParamsFor :: ScriptTarget -> NodeParams C.ConwayEra
 nodeParamsFor = \case
   -- Run the 'Mockchain' action with modified node parameters to allow larger-than-usual
   -- transactions. This is useful for showing debug output from the scripts and fail if there is an error
-  Debug -> testNodeParams & ledgerProtocolParameters . protocolParameters . Ledger.ppMaxTxSizeL %~ (*10)
-  Production -> testNodeParams
+  Debug -> Defaults.nodeParams & ledgerProtocolParameters . protocolParameters . Ledger.ppMaxTxSizeL %~ (*10)
+  Production -> Defaults.nodeParams
 
 mockchainSucceedsWithTarget :: ScriptTarget -> ReaderT ScriptTarget (MockchainT C.ConwayEra IO) a -> Assertion
 mockchainSucceedsWithTarget target =
diff --git a/src/wst-poc.cabal b/src/wst-poc.cabal
index e3eba06..1e55389 100644
--- a/src/wst-poc.cabal
+++ b/src/wst-poc.cabal
@@ -178,7 +178,6 @@ test-suite wst-poc-test
     , base                    >=4.14.0
     , cardano-api
     , cardano-ledger-api
-    , cardano-ledger-core
     , cardano-ledger-shelley
     , convex-base
     , convex-coin-selection