From c82b0259dfc1f12dbaac2aa079e037a3de724561 Mon Sep 17 00:00:00 2001
From: sourabhxyz <swasti@sourabh.xyz>
Date: Wed, 18 Dec 2024 18:42:20 +0530
Subject: [PATCH] feat(#372): decrease betUntil and betReveal time for unified
 tests, considering the short epoch size of privnet so as to not encounter
 past horizon error

---
 .../GeniusYield/Test/Unified/BetRef/PlaceBet.hs      | 12 ++++++------
 .../GeniusYield/Test/Unified/BetRef/TakePot.hs       | 12 ++++++------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/tests-unified/GeniusYield/Test/Unified/BetRef/PlaceBet.hs b/tests-unified/GeniusYield/Test/Unified/BetRef/PlaceBet.hs
index ca4ed04f..ca154f5b 100644
--- a/tests-unified/GeniusYield/Test/Unified/BetRef/PlaceBet.hs
+++ b/tests-unified/GeniusYield/Test/Unified/BetRef/PlaceBet.hs
@@ -142,8 +142,8 @@ runPlaceBet refScript brp guess bet mPrevBets user = do
 firstBetTest' :: GYTxGameMonad m => TestInfo -> m ()
 firstBetTest' =
   firstBetTest
-    40
-    100
+    10
+    20
     (valueFromLovelace 200_000_000)
     (OracleAnswerDatum 3)
     (valueFromLovelace 20_000_000)
@@ -176,8 +176,8 @@ type Bet = (Wallet, OracleAnswerDatum, GYValue)
 multipleBetsTest :: GYTxGameMonad m => TestInfo -> m ()
 multipleBetsTest TestInfo {..} =
   mkMultipleBetsTest
-    400
-    1_000
+    10
+    20
     (valueFromLovelace 10_000_000)
     [ (w1, OracleAnswerDatum 1, valueFromLovelace 10_000_000)
     , (w2, OracleAnswerDatum 2, valueFromLovelace 20_000_000)
@@ -195,8 +195,8 @@ multipleBetsTest TestInfo {..} =
 failingMultipleBetsTest :: GYTxGameMonad m => TestInfo -> m ()
 failingMultipleBetsTest TestInfo {..} =
   mkMultipleBetsTest
-    400
-    1_000
+    10
+    20
     (valueFromLovelace 10_000_000)
     [ (w1, OracleAnswerDatum 1, valueFromLovelace 10_000_000)
     , (w2, OracleAnswerDatum 2, valueFromLovelace 20_000_000)
diff --git a/tests-unified/GeniusYield/Test/Unified/BetRef/TakePot.hs b/tests-unified/GeniusYield/Test/Unified/BetRef/TakePot.hs
index 9b0c749f..d4edd6ea 100644
--- a/tests-unified/GeniusYield/Test/Unified/BetRef/TakePot.hs
+++ b/tests-unified/GeniusYield/Test/Unified/BetRef/TakePot.hs
@@ -57,8 +57,8 @@ takeBetPotTests setup =
 takeBetsTest :: GYTxGameMonad m => TestInfo -> m ()
 takeBetsTest TestInfo {..} =
   mkTakeBetsTest
-    400
-    100
+    10
+    20
     (valueFromLovelace 10_000_000)
     [ (w1, OracleAnswerDatum 1, valueFromLovelace 10_000_000)
     , (w2, OracleAnswerDatum 2, valueFromLovelace 20_000_000)
@@ -78,8 +78,8 @@ takeBetsTest TestInfo {..} =
 wrongGuesserTakeBetsTest :: GYTxGameMonad m => TestInfo -> m ()
 wrongGuesserTakeBetsTest TestInfo {..} =
   mkTakeBetsTest
-    400
-    100
+    10
+    20
     (valueFromLovelace 10_000_000)
     [ (w1, OracleAnswerDatum 1, valueFromLovelace 10_000_000)
     , (w2, OracleAnswerDatum 2, valueFromLovelace 20_000_000)
@@ -99,8 +99,8 @@ wrongGuesserTakeBetsTest TestInfo {..} =
 badUpdatedGuessTakeBetsTest :: GYTxGameMonad m => TestInfo -> m ()
 badUpdatedGuessTakeBetsTest TestInfo {..} =
   mkTakeBetsTest
-    400
-    100
+    10
+    20
     (valueFromLovelace 10_000_000)
     [ (w1, OracleAnswerDatum 1, valueFromLovelace 10_000_000)
     , (w2, OracleAnswerDatum 2, valueFromLovelace 20_000_000)