diff --git a/cardano-testnet/test/cardano-testnet-test/cardano-testnet-test.hs b/cardano-testnet/test/cardano-testnet-test/cardano-testnet-test.hs index 7870e463193..466872a35ed 100644 --- a/cardano-testnet/test/cardano-testnet-test/cardano-testnet-test.hs +++ b/cardano-testnet/test/cardano-testnet-test/cardano-testnet-test.hs @@ -24,6 +24,8 @@ import qualified Cardano.Testnet.Test.SubmitApi.Babbage.Transaction import Prelude import qualified System.Environment as E +import qualified System.Exit as IO +import qualified System.IO as IO import System.IO (BufferMode (LineBuffering), hSetBuffering, hSetEncoding, stdout, utf8) import qualified Testnet.Property.Run as H @@ -31,40 +33,41 @@ import qualified Testnet.Property.Run as H import qualified Test.Tasty as T import Test.Tasty (TestTree) import qualified Test.Tasty.Ingredients as T +import qualified Test.Tasty.Options as T +import qualified Test.Tasty.Runners as T tests :: IO TestTree tests = do - testGroup <- runTestGroup <$> shouldRunInParallel - pure $ testGroup "test/Spec.hs" - [ testGroup "Spec" - [ testGroup "Ledger Events" + pure $ T.testGroup "test/Spec.hs" + [ T.testGroup "Spec" + [ T.testGroup "Ledger Events" [ H.ignoreOnWindows "Sanity Check" LedgerEvents.hprop_ledger_events_sanity_check , H.ignoreOnWindows "Treasury Growth" LedgerEvents.prop_check_if_treasury_is_growing -- TODO: Replace foldBlocks with checkLedgerStateCondition - , testGroup "Governance" + , T.testGroup "Governance" [ H.ignoreOnMacAndWindows "ProposeAndRatifyNewConstitution" Cardano.Testnet.Test.LedgerEvents.Gov.ProposeNewConstitution.hprop_ledger_events_propose_new_constitution -- FIXME Those tests are flaky -- , H.ignoreOnWindows "InfoAction" LedgerEvents.hprop_ledger_events_info_action , H.ignoreOnWindows "ProposeNewConstitutionSPO" LedgerEvents.hprop_ledger_events_propose_new_constitution_spo , H.ignoreOnWindows "DRepRetirement" DRepRetirement.hprop_drep_retirement ] - , testGroup "Plutus" + , T.testGroup "Plutus" [ H.ignoreOnWindows "PlutusV3" Cardano.Testnet.Test.Cli.Conway.Plutus.hprop_plutus_v3] ] - , testGroup "CLI" + , T.testGroup "CLI" [ H.ignoreOnWindows "Shutdown" Cardano.Testnet.Test.Node.Shutdown.hprop_shutdown -- ShutdownOnSigint fails on Mac with -- "Log file: /private/tmp/tmp.JqcjW7sLKS/kes-period-info-2-test-30c2d0d8eb042a37/logs/test-spo.stdout.log had no logs indicating the relevant node has minted blocks." , H.ignoreOnMacAndWindows "ShutdownOnSigint" Cardano.Testnet.Test.Node.Shutdown.hprop_shutdownOnSigint -- ShutdownOnSlotSynced FAILS Still. The node times out and it seems the "shutdown-on-slot-synced" flag does nothing -- , H.ignoreOnWindows "ShutdownOnSlotSynced" Cardano.Testnet.Test.Node.Shutdown.hprop_shutdownOnSlotSynced - , testGroup "Babbage" + , T.testGroup "Babbage" [ H.ignoreOnMacAndWindows "leadership-schedule" Cardano.Testnet.Test.Cli.Babbage.LeadershipSchedule.hprop_leadershipSchedule -- FAILS , H.ignoreOnWindows "stake-snapshot" Cardano.Testnet.Test.Cli.Babbage.StakeSnapshot.hprop_stakeSnapshot , H.ignoreOnWindows "transaction" Cardano.Testnet.Test.Cli.Babbage.Transaction.hprop_transaction ] -- TODO: Conway - Re-enable when create-staked is working in conway again - --, testGroup "Conway" + --, T.testGroup "Conway" -- [ H.ignoreOnWindows "stake-snapshot" Cardano.Testnet.Test.Cli.Conway.StakeSnapshot.hprop_stakeSnapshot -- ] -- Ignored on Windows due to : commitBuffer: invalid argument (invalid character) @@ -75,27 +78,27 @@ tests = do , H.ignoreOnWindows "CliQueries" Cardano.Testnet.Test.Cli.Queries.hprop_cli_queries ] ] - , testGroup "SubmitApi" - [ testGroup "Babbage" + , T.testGroup "SubmitApi" + [ T.testGroup "Babbage" [ H.ignoreOnWindows "transaction" Cardano.Testnet.Test.SubmitApi.Babbage.Transaction.hprop_transaction ] ] ] -shouldRunInParallel :: IO Bool -shouldRunInParallel = (== Just "1") <$> E.lookupEnv "PARALLEL_TESTNETS" +defaultMainWithIngredientsAndOptions :: [T.Ingredient] -> T.OptionSet -> T.TestTree -> IO () +defaultMainWithIngredientsAndOptions ins opts testTree = do + T.installSignalHandlers + parsedOpts <- T.parseOptions ins testTree + let opts' = opts <> parsedOpts --- FIXME Right now when running tests concurrently it makes them flaky -runTestGroup - :: Bool -- ^ True to run in parallel - -> T.TestName - -> [TestTree] - -> TestTree -runTestGroup True name = T.testGroup name -runTestGroup False name = T.sequentialTestGroup name T.AllFinish - -ingredients :: [T.Ingredient] -ingredients = T.defaultIngredients + case T.tryIngredients ins opts' testTree of + Nothing -> do + IO.hPutStrLn IO.stderr + "No ingredients agreed to run. Something is wrong either with your ingredient set or the options." + IO.exitFailure + Just act -> do + ok <- act + if ok then IO.exitSuccess else IO.exitFailure main :: IO () main = do @@ -105,4 +108,6 @@ main = do hSetEncoding stdout utf8 args <- E.getArgs - E.withArgs args $ tests >>= T.defaultMainWithIngredients ingredients + let opts = T.singleOption $ T.NumThreads 1 + + E.withArgs args $ tests >>= defaultMainWithIngredientsAndOptions T.defaultIngredients opts