diff options
author | John MacFarlane <jgm@berkeley.edu> | 2018-05-11 16:51:55 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2018-05-11 17:10:32 -0700 |
commit | a00ca6f0d8e83821d9be910f1eebf3d3cdd1170f (patch) | |
tree | 3445409e6a4c854dfdd6ab8c6fdae7f3d30b3de3 /test/Tests/Shared.hs.orig | |
parent | 9b92993a0adab2eefb07aa63b4104437f9c709c1 (diff) | |
download | pandoc-a00ca6f0d8e83821d9be910f1eebf3d3cdd1170f.tar.gz |
Removed inadvertently added .orig files from repository.
These were added by
https://github.com/schrieveslaach/pandoc/commit/96d10c72cc95e56c9e49db3e6db7118e89d1f1e0
Closes #4648.
Diffstat (limited to 'test/Tests/Shared.hs.orig')
-rw-r--r-- | test/Tests/Shared.hs.orig | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/test/Tests/Shared.hs.orig b/test/Tests/Shared.hs.orig deleted file mode 100644 index cc448419c..000000000 --- a/test/Tests/Shared.hs.orig +++ /dev/null @@ -1,39 +0,0 @@ -module Tests.Shared (tests) where - -import System.FilePath.Posix (joinPath) -import Test.Tasty -import Test.Tasty.HUnit (assertBool, testCase, (@?=)) -import Text.Pandoc.Arbitrary () -import Text.Pandoc.Builder -import Text.Pandoc.Shared - -tests :: [TestTree] -tests = [ testGroup "compactifyDL" - [ testCase "compactifyDL with empty def" $ - assertBool "compactifyDL" - (let x = [(str "word", [para (str "def"), mempty])] - in compactifyDL x == x) - ] - , testGroup "collapseFilePath" testCollapse - ] - -testCollapse :: [TestTree] -testCollapse = map (testCase "collapse") - [ collapseFilePath (joinPath [ ""]) @?= (joinPath [ ""]) - , collapseFilePath (joinPath [ ".","foo"]) @?= (joinPath [ "foo"]) - , collapseFilePath (joinPath [ ".",".","..","foo"]) @?= (joinPath [ joinPath ["..", "foo"]]) - , collapseFilePath (joinPath [ "..","foo"]) @?= (joinPath [ "..","foo"]) - , collapseFilePath (joinPath [ "","bar","..","baz"]) @?= (joinPath [ "","baz"]) - , collapseFilePath (joinPath [ "","..","baz"]) @?= (joinPath [ "","..","baz"]) - , collapseFilePath (joinPath [ ".","foo","..",".","bar","..",".",".","baz"]) @?= (joinPath [ "baz"]) - , collapseFilePath (joinPath [ ".",""]) @?= (joinPath [ ""]) - , collapseFilePath (joinPath [ ".",".",""]) @?= (joinPath [ ""]) - , collapseFilePath (joinPath [ "..",""]) @?= (joinPath [ ".."]) - , collapseFilePath (joinPath [ "..",".",""]) @?= (joinPath [ ".."]) - , collapseFilePath (joinPath [ ".","..",""]) @?= (joinPath [ ".."]) - , collapseFilePath (joinPath [ "..","..",""]) @?= (joinPath [ "..",".."]) - , collapseFilePath (joinPath [ "parent","foo","baz","..","bar"]) @?= (joinPath [ "parent","foo","bar"]) - , collapseFilePath (joinPath [ "parent","foo","baz","..","..","bar"]) @?= (joinPath [ "parent","bar"]) - , collapseFilePath (joinPath [ "parent","foo",".."]) @?= (joinPath [ "parent"]) - , collapseFilePath (joinPath [ "","parent","foo","..","..","bar"]) @?= (joinPath [ "","bar"]) - , collapseFilePath (joinPath [ "",".","parent","foo"]) @?= (joinPath [ "","parent","foo"])] |