Skip to content

Commit 6736b46

Browse files
committed
Fix 32-unlisted-module test on Windows (handle different newlines)
1 parent f7727c4 commit 6736b46

File tree

2 files changed

+5
-2
lines changed

2 files changed

+5
-2
lines changed

test/integration/tests/32-unlisted-module/files/files.cabal

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -12,5 +12,6 @@ executable files-exe
1212
hs-source-dirs: src/../src
1313
main-is: Main.hs
1414
build-depends: base >= 4.7 && < 5
15+
, bytestring
1516
, file-embed
1617
default-language: Haskell2010

test/integration/tests/32-unlisted-module/files/src/Main.hs

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,14 +2,16 @@
22
{-# LANGUAGE OverloadedStrings #-}
33
module Main where
44

5+
import qualified Data.ByteString.Char8 as C8
56
import Data.FileEmbed
7+
import Data.List
68
import Unlisted
79

810
main :: IO ()
911
main = do
1012
putStrLn ("main " ++ show foo ++ " " ++ show embedded)
11-
if embedded == "FAIL\n"
13+
if "FAIL" `C8.isPrefixOf` embedded
1214
then error "embedded contains FAIL"
1315
else return ()
1416

15-
embedded = $(embedFile "embed.txt")
17+
embedded = $(embedFile "embed.txt")

0 commit comments

Comments
 (0)