chore: re-group test

test/Testnet.purs

@@ -45,8 +45,11 @@ main = interruptOnSignal SIGINT =<< launchAff do
   flip cancelWith (effectCanceler (exitCode 1)) do
     Utils.interpretWithConfig
       defaultConfig { timeout = Just $ Milliseconds 600_000.0, exit = true }
-      $ group "cardano-testnet" do
-          testTestnetContracts config BetRef.suite
+      $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

test/Testnet/BetRef/Test.purs

@@ -1,5 +1,6 @@
 module Test.Ctl.Testnet.BetRef.Test
-  ( suite
+  ( placeBetSuite
+  , takePotSuite
   ) where
 
 import Contract.Prelude hiding (apply)
@@ -94,14 +95,17 @@ import Test.Ctl.Testnet.BetRef.Types
   )
 import Test.Spec.Assertions (shouldEqual, shouldSatisfy)
 
-suite :: TestPlanM ContractTest Unit
-suite = do
-  -- test "Placing first bet" firstBetTest'
-  -- test "Multiple bets - good steps" multipleBetsTest
-  -- test "Multiple bets - to small step" failingMultipleBetsTest
+placeBetSuite :: TestPlanM ContractTest Unit
+placeBetSuite = do
+  test "Placing first bet" firstBetTest'
+  test "Multiple bets - good steps" multipleBetsTest
+  test "Multiple bets - to small step" failingMultipleBetsTest
+
+takePotSuite :: TestPlanM ContractTest Unit
+takePotSuite = do
   test "Just take bet pot" takeBetsTest
-  -- test "Take by wrong guesser" wrongGuesserTakeBetsTest
-  -- test "The first bet matters" badUpdatedGuessTakeBetsTest
+  test "Take by wrong guesser" wrongGuesserTakeBetsTest
+  test "The first bet matters" badUpdatedGuessTakeBetsTest
 
 -- -----------------------------------------------------------------------------
 -- Place bids