diff options
author | John MacFarlane <jgm@berkeley.edu> | 2021-03-19 18:54:49 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2021-03-19 18:57:13 -0700 |
commit | 2ca1b20a85303dc8656f782f5804afdec215948b (patch) | |
tree | 820586530382fce5d331542de0f4c47231f5c954 /test/Tests/Old.hs | |
parent | c3a9322b930c4b7e9bbf880d5df5e972efcaf0ff (diff) | |
download | pandoc-2ca1b20a85303dc8656f782f5804afdec215948b.tar.gz |
Fix finding of data files from test programs.
Apparently Cabal sets a `pandoc_datadir` environment variable
so that the data files will be sought in the source directory
rather than in the final destination (where they aren't yet
installed).
So we no longer need to set `--data-dir` in the tests. We just
need to make sure `pandoc_datadir` is set in the environment
when we call the program in the test suite.
This will fix the issue with loading of pandoc.lua when
pandoc is built with `-embed_data_files`, reported in #7163.
Closes #7163.
Diffstat (limited to 'test/Tests/Old.hs')
-rw-r--r-- | test/Tests/Old.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/Tests/Old.hs b/test/Tests/Old.hs index 160086be2..e890bad0b 100644 --- a/test/Tests/Old.hs +++ b/test/Tests/Old.hs @@ -321,9 +321,11 @@ testWithNormalize normalizer pandocPath testname opts inp norm = getActual = do mldpath <- Env.lookupEnv "LD_LIBRARY_PATH" mdyldpath <- Env.lookupEnv "DYLD_LIBRARY_PATH" + mpdd <- Env.lookupEnv "pandoc_datadir" let env = ("TMP",".") : ("LANG","en_US.UTF-8") : ("HOME", "./") : + maybe [] ((:[]) . ("pandoc_datadir",)) mpdd ++ maybe [] ((:[]) . ("LD_LIBRARY_PATH",)) mldpath ++ maybe [] ((:[]) . ("DYLD_LIBRARY_PATH",)) mdyldpath @@ -335,7 +337,7 @@ testWithNormalize normalizer pandocPath testname opts inp norm = -- filter \r so the tests will work on Windows machines else fail $ "Pandoc failed with error code " ++ show ec updateGolden = UTF8.writeFile norm . T.pack - options = ["--data-dir=../data","--quiet"] ++ [inp] ++ opts + options = ["--quiet"] ++ [inp] ++ opts compareValues :: FilePath -> [String] -> String -> String -> IO (Maybe String) compareValues norm options expected actual = do |