Substitute encodeLf for concatOutput

- For assertOutputMatches
haskell · Jan 3, 2025 · 5539c23 · 5539c23
1 parent 5d3c1a0
commit 5539c23
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cabal-testsuite/src/Test/Cabal/Prelude.hs b/cabal-testsuite/src/Test/Cabal/Prelude.hs
@@ -836,14 +836,14 @@ assertOn NeedleHaystack{..} (txFwd txNeedle -> needle) (txFwd txHaystack. result
 assertOutputMatches :: MonadIO m => WithCallStack (String -> Result -> m ())
 assertOutputMatches regex result =
     withFrozenCallStack $
-    unless (concatOutput output =~ regex) $
+    unless (encodeLf output =~ regex) $
     assertFailure $ "expected regex match: " ++ regex
   where output = resultOutput result
 
 assertOutputDoesNotMatch :: MonadIO m => WithCallStack (String -> Result -> m ())
 assertOutputDoesNotMatch regex result =
     withFrozenCallStack $
-    when (concatOutput output =~ regex) $
+    when (encodeLf output =~ regex) $
     assertFailure $ "unexpected regex match: " ++ regex
   where output = resultOutput result