wip 4th integration test

cardano-foundation · Oct 19, 2020 · 7781555 · 7781555
1 parent 59206d2
commit 7781555
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Transactions.hs b/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Transactions.hs
@@ -660,7 +660,8 @@ spec = describe "SHELLEY_TRANSACTIONS" $ do
         -- The actual expiry slot
         let Just txActualExp = absSlotS <$> apiTx ^. #expiresAt
 
-        -- Expected and actual are fairly close
+        -- Expected and actual are fairly close. Any difference should only be
+        -- due to slot rounding.
         slotDiff txExpectedExp txActualExp `shouldSatisfy` (< 50)
 
     it "TRANS_TTL_03 - Expired transactions" $ \ctx -> do
@@ -696,6 +697,10 @@ spec = describe "SHELLEY_TRANSACTIONS" $ do
             , expectField #expiresAt (`shouldSatisfy` isJust)
             ]
 
+    it "TRANS_TTL_02 - Expiry past slotting horizon" $ \ctx -> do
+        -- fixme
+        pure ()
+
     it "TRANSMETA_CREATE_01 - Transaction with metadata" $ \ctx -> do
         (wa, wb) <- (,) <$> fixtureWallet ctx <*> emptyWallet ctx
         let amt = (minUTxOValue :: Natural)