sydtest 0.30.0.0 → 0.31.0.0

raw patch · 3 files changed

+27/−5 lines, 3 files

Files

• CHANGELOG.md +11/−0
• src/Test/Syd/MutationMode/Common.hs +15/−4
• sydtest.cabal +1/−1

@@ -1,5 +1,16 @@ # Changelog +## [0.31.0.0] - 2026-09-11++### Changed++* `SuiteOutcome`'s `SuiteKilled` carries the killed child's log file.++### Fixed++* A failed control names the output of the run that killed it.++ ## [0.30.0.0] - 2026-09-02  ### Changed

@@ -114,8 +114,12 @@  -- | Per-suite outcome of running a single mutation child. data SuiteOutcome-  = -- | Child exited non-zero — mutation killed by this suite.-    SuiteKilled+  = -- | Child exited non-zero — mutation killed by this suite.  The optional+    -- log path points at the captured stdout\/stderr, which is kept only when+    -- the kill is itself the finding: a killed control.  Keeping it for every+    -- kill would mean a log per mutation in the manifest, which is the bulk of+    -- a run and says nothing a passing suite does not.+    SuiteKilled (Maybe (Path Rel File))   | -- | Child exited zero — mutation survived in this suite. The optional     -- log path points at the captured stdout/stderr (when a report dir is     -- configured).@@ -140,7 +144,7 @@   Exception.handle     ( \(e :: Exception.SomeException) -> case Exception.fromException e of         Just (_ :: Exception.SomeAsyncException) -> Exception.throwIO e-        Nothing -> pure SuiteKilled+        Nothing -> pure (SuiteKilled Nothing)     )     action @@ -386,7 +390,14 @@     renderControlFailed cf =       let rec = controlFailedMutationRecord cf           mid = augmentedMutationRecordId rec-       in [] : formatMutationLog mid rec+          -- The output of the run that killed it is the only place the+          -- offending test is named, so say where it is rather than leaving+          -- the reader to know the naming convention.+          logLines = case controlFailedMutationLogFile cf of+            Nothing -> []+            Just relFile ->+              [[chunk "  Output of the run that killed it: ", fore cyan (chunk (T.pack (fromRelFile relFile)))]]+       in ([] : formatMutationLog mid rec) ++ logLines     renderSurvivor sm =       let rec = survivedMutationRecord sm           mid = augmentedMutationRecordId rec

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           sydtest-version:        0.30.0.0+version:        0.31.0.0 synopsis:       A modern testing framework for Haskell with good defaults and advanced testing features. description:    A modern testing framework for Haskell with good defaults and advanced testing features. Sydtest aims to make the common easy and the hard possible. See https://github.com/NorfairKing/sydtest#readme for more information. category:       Testing