From 1ea10e150e1bfd9bb3a43c20570182bebcfee1a5 Mon Sep 17 00:00:00 2001
From: euonymos <ilia@mlabs.city>
Date: Mon, 25 Nov 2024 15:14:49 -0600
Subject: [PATCH] chore: restore original testnet tests

---
 test/Testnet.purs | 47 +++++++++++++++++++++--------------------------
 1 file changed, 21 insertions(+), 26 deletions(-)

diff --git a/test/Testnet.purs b/test/Testnet.purs
index ee3eb4c30..15167926e 100644
--- 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
@@ -44,31 +43,27 @@ main = interruptOnSignal SIGINT =<< launchAff do
   let config = defaultTestnetConfig { suppressLogs = false }
   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