pandoc-citeproc 0.8.1.1 → 0.8.1.2

raw patch · 4 files changed

+10/−6 lines, 4 files

Files

• changelog +4/−0
• pandoc-citeproc.cabal +1/−1
• tests/test-citeproc.hs +3/−3
• tests/test-pandoc-citeproc.hs +2/−2

@@ -1,3 +1,7 @@+pandoc-citeproc (0.8.1.2)++  * Use UTF8 versions of readFile in test program.+ pandoc-citeproc (0.8.1.1)    * Use pandoc's UTF8 versions of getContents, putStrLn, etc.

@@ -1,5 +1,5 @@ name:               pandoc-citeproc-version:            0.8.1.1+version:            0.8.1.2 cabal-version:      >= 1.12 synopsis:           Supports using pandoc with citeproc 

@@ -191,8 +191,8 @@   withSystemTempDirectory "test-pandoc-citeproc-XXX" $ \fp -> do     let expectedf = fp </> "expected"     let actualf   = fp </> "actual"-    writeFile expectedf expected'-    writeFile actualf result'+    UTF8.writeFile expectedf expected'+    UTF8.writeFile actualf result'     withDirectory fp $ void $ rawSystem "diff" ["-u","expected","actual"]  withDirectory :: FilePath -> IO a -> IO a@@ -238,7 +238,7 @@       putStrLn "Copying existing test-citeproc.log to test-citeproc.log.old"       copyFile "test-citeproc.log" "test-citeproc.log.old"     putStrLn "Writing test-citeproc.log."-    writeFile "test-citeproc.log" summary+    UTF8.writeFile "test-citeproc.log" summary   exitWith $ if numfailures == 0                 then ExitSuccess                 else ExitFailure $ numfailures + numerrors

@@ -61,8 +61,8 @@ testCase :: Bool -> String -> IO TestResult testCase regenerate csl = do   hPutStr stderr $ "[" ++ csl ++ ".in.native] "-  indataNative <- readFile $ "tests/" ++ csl ++ ".in.native"-  expectedNative <- readFile $ "tests/" ++ csl ++ ".expected.native"+  indataNative <- UTF8.readFile $ "tests/" ++ csl ++ ".in.native"+  expectedNative <- UTF8.readFile $ "tests/" ++ csl ++ ".expected.native"   let jsonIn = Aeson.encode $ (read indataNative :: Pandoc)   let expectedDoc = normalize $ read expectedNative   testProgPath <- getExecutablePath