Skip to content

Add support for bazel #48

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Draft
guibou wants to merge 2 commits into
base: master
Choose a base branch
from
Draft

Add support for bazel #48

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
543b344
Add support for bazel
guibou Dec 13, 2021
5175e22
Accept invalid unicode chars when decoding utf8
guibou Mar 28, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
15 changes: 12 additions & 3 deletions Test/Tasty/Golden.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -108,6 +108,8 @@ import Foreign.C.Error
#if !MIN_VERSION_base(4,11,0)
import Data.Monoid
#endif
import System.Environment
import Data.Maybe

-- | Compare the output file's contents against the golden file's contents
-- after the given action has created the output file.
Expand Down Expand Up @@ -297,11 +299,18 @@ createDirectoriesAndWriteFile
-> LBS.ByteString
-> IO ()
createDirectoriesAndWriteFile path bs = do
-- Look for bazel workspace and if it exists, change the root directory for
-- file creation.
-- This is useful when used in bazel run context. Your test is run inside the
-- bazel runfiles directory, but you want to modify the golden references in
-- your source tree.
workspace <- fromMaybe "." <$> lookupEnv "BUILD_WORKING_DIRECTORY"

let dir = takeDirectory path
createDirectoryIfMissing
True -- create parents too
dir
LBS.writeFile path bs
(workspace </> dir)
LBS.writeFile (workspace </> path) bs

-- | Force the evaluation of a lazily-produced bytestring.
--
Expand All @@ -318,7 +327,7 @@ readFileStrict path = do
return s

unpackUtf8 :: LBS.ByteString -> String
unpackUtf8 = LT.unpack . LT.decodeUtf8
unpackUtf8 = LT.unpack . LT.decodeUtf8 LT.lenientDecode

runDiff
:: [String] -- ^ the diff command
Expand Down