chore: restore original testnet tests

Plutonomicon · Nov 25, 2024 · e78752c · e78752c
1 parent f70472e
commit e78752c
Show file tree

Hide file tree

Showing 2 changed files with 38 additions and 36 deletions.
diff --git a/src/Contract/Test/Testnet.purs b/src/Contract/Test/Testnet.purs
@@ -1,7 +1,9 @@
 module Contract.Test.Testnet
-  ( defaultTestnetConfig
+  ( defaultClusterConfig
+  , defaultTestnetConfig
   , module X
-  ) where
+  )
+  where
 
 import Contract.Monad (runContractInEnv) as X
 import Contract.Wallet (withKeyWallet) as X
@@ -38,7 +40,7 @@ import Ctl.Internal.Testnet.Types
       )
   , TestnetConfig
   ) as X
-import Ctl.Internal.Testnet.Types (Era(Conway), TestnetConfig)
+import Ctl.Internal.Testnet.Types (Era(Conway), TestnetConfig, TestnetClusterConfig)
 import Data.Log.Level (LogLevel(Trace))
 import Data.Maybe (Maybe(Nothing))
 import Data.Time.Duration (Seconds(Seconds))
@@ -62,10 +64,15 @@ defaultTestnetConfig =
   , customLogger: Nothing
   , suppressLogs: true
   , hooks: emptyHooks
-  , clusterConfig:
-      { testnetMagic: 2
-      , era: Conway
-      , slotLength: Seconds 0.5
-      , epochSize: Nothing
-      }
+  , clusterConfig: defaultClusterConfig
   }
+
+
+defaultClusterConfig :: TestnetClusterConfig
+defaultClusterConfig =
+    { testnetMagic: 2
+    , era: Conway
+    , slotLength: Seconds 0.1
+    , epochSize: Nothing
+    }
+
diff --git a/test/Testnet.purs b/test/Testnet.purs
@@ -26,7 +26,6 @@ import Mote.Monad (mapTest)
 import Mote.TestPlanM as Utils
 import Test.Ctl.BalanceTx.ChangeGeneration as ChangeGeneration
 import Test.Ctl.QueryM.AffInterface as QueryM.AffInterface
-import Test.Ctl.Testnet.BetRef.Test as BetRef
 import Test.Ctl.Testnet.Contract as Contract
 import Test.Ctl.Testnet.Contract.Assert as Assert
 import Test.Ctl.Testnet.Contract.Mnemonics as Mnemonics
@@ -41,34 +40,30 @@ import Test.Spec.Runner (defaultConfig)
 -- Run with `npm run testnet-test`
 main :: Effect Unit
 main = interruptOnSignal SIGINT =<< launchAff do
-  let config = defaultTestnetConfig { suppressLogs = false }
+  let config = defaultTestnetConfig
   flip cancelWith (effectCanceler (exitCode 1)) do
     Utils.interpretWithConfig
-      defaultConfig { timeout = Just $ Milliseconds 600_000.0, exit = true }
-      $group "bet-ref example" do
-          testTestnetContracts config BetRef.placeBetSuite
-          testTestnetContracts config BetRef.takePotSuite
-      -- $group "bet-ref example - take bet" do
-      -- $ group "cardano-testnet" do
---           testTestnetContracts config Mnemonics.suite
---           group "ExUnits - normal limits" do
---             testTestnetContracts config $ ExUnits.mkFailingSuite 8000
---             testTestnetContracts config $ ExUnits.mkSuite 2550
---           -- FIXME: group "ExUnits - relaxed limits" do
---           --   testTestnetContracts configWithMaxExUnits $ ExUnits.mkSuite 3000
---           testTestnetContracts config Assert.suite
---           Logging.suite
---           -- FIXME: testStartPlutipCluster
---           testTestnetContracts config $ do
---             flip mapTest QueryM.AffInterface.suite
---               (noWallet <<< wrapQueryM)
---             ChangeGeneration.suite
---             Contract.suite
---             Gov.suite
---           UtxoDistribution.suite
---           testTestnetContracts config OgmiosMempool.suite
---           runTestnetTestPlan config SameWallets.suite
--- -- FIXME: ClusterParameters.runTest
+      defaultConfig { timeout = Just $ Milliseconds 70_000.0, exit = true }
+      $ group "cardano-testnet" do
+          testTestnetContracts config Mnemonics.suite
+          group "ExUnits - normal limits" do
+            testTestnetContracts config $ ExUnits.mkFailingSuite 8000
+            testTestnetContracts config $ ExUnits.mkSuite 2550
+          -- FIXME: group "ExUnits - relaxed limits" do
+          --   testTestnetContracts configWithMaxExUnits $ ExUnits.mkSuite 3000
+          testTestnetContracts config Assert.suite
+          Logging.suite
+          -- FIXME: testStartPlutipCluster
+          testTestnetContracts config $ do
+            flip mapTest QueryM.AffInterface.suite
+              (noWallet <<< wrapQueryM)
+            ChangeGeneration.suite
+            Contract.suite
+            Gov.suite
+          UtxoDistribution.suite
+          testTestnetContracts config OgmiosMempool.suite
+          runTestnetTestPlan config SameWallets.suite
+-- FIXME: ClusterParameters.runTest
 
 {-
 configWithMaxExUnits :: PlutipConfig