feat(#372): decrease betUntil and betReveal time for unified tests, c…

…onsidering the short epoch size of privnet so as to not encounter past horizon error
geniusyield · Dec 18, 2024 · c82b025 · c82b025
1 parent a2a5fa5
commit c82b025
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 12 deletions.
diff --git 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
@@ -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)