mirror of
https://github.com/jgm/pandoc.git
synced 2026-09-04 06:35:47 +00:00
Anton Antich
59b8b3ed4b
Each worksheet turns into a section containing a table. The common file `nativeDiff` has been extract from the Docx and Pptx text files and put in Tests.Helpers.
49 lines
1.4 KiB
Haskell
49 lines
1.4 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
{- |
|
|
Module : Tests.Readers.Xlsx
|
|
Copyright : © 2025 Anton Antic
|
|
License : GNU GPL, version 2 or above
|
|
|
|
Maintainer : Anton Antic <anton@everworker.ai>
|
|
Stability : alpha
|
|
Portability : portable
|
|
|
|
Tests for the XLSX reader.
|
|
-}
|
|
module Tests.Readers.Xlsx (tests) where
|
|
|
|
import qualified Data.ByteString as BS
|
|
import qualified Data.ByteString.Lazy as B
|
|
import Test.Tasty
|
|
import Test.Tasty.Golden.Advanced
|
|
import Tests.Helpers
|
|
import Text.Pandoc
|
|
import Text.Pandoc.UTF8 as UTF8
|
|
|
|
defopts :: ReaderOptions
|
|
defopts = def{ readerExtensions = getDefaultExtensions "xlsx" }
|
|
|
|
testCompare :: String -> FilePath -> FilePath -> TestTree
|
|
testCompare = testCompareWithOpts defopts
|
|
|
|
testCompareWithOpts :: ReaderOptions -> String -> FilePath -> FilePath -> TestTree
|
|
testCompareWithOpts opts testName xlsxFP nativeFP =
|
|
goldenTest
|
|
testName
|
|
(do nf <- UTF8.toText <$> BS.readFile nativeFP
|
|
runIOorExplode (readNative def nf))
|
|
(do df <- B.readFile xlsxFP
|
|
runIOorExplode (readXlsx opts df))
|
|
(nativeDiff nativeFP)
|
|
(\a -> runIOorExplode (writeNative def{ writerTemplate = Just mempty} a)
|
|
>>= BS.writeFile nativeFP . UTF8.fromText)
|
|
|
|
tests :: [TestTree]
|
|
tests = [ testGroup "basic"
|
|
[ testCompare
|
|
"sheet extraction"
|
|
"xlsx-reader/basic.xlsx"
|
|
"xlsx-reader/basic.native"
|
|
]
|
|
]
|