From 18ab8642692caca2716fd9b5a0e6dbfd3d9cf9cc Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 4 Feb 2017 12:56:30 +0100
Subject: Moved tests/ -> test/.

---
 tests/Tests/Readers/EPUB.hs | 39 ---------------------------------------
 1 file changed, 39 deletions(-)
 delete mode 100644 tests/Tests/Readers/EPUB.hs

(limited to 'tests/Tests/Readers/EPUB.hs')

diff --git a/tests/Tests/Readers/EPUB.hs b/tests/Tests/Readers/EPUB.hs
deleted file mode 100644
index 9190671c3..000000000
--- a/tests/Tests/Readers/EPUB.hs
+++ /dev/null
@@ -1,39 +0,0 @@
-module Tests.Readers.EPUB (tests) where
-
-import Text.Pandoc.Options
-import Test.Framework
-import Test.HUnit (assertBool)
-import Test.Framework.Providers.HUnit
-import qualified Data.ByteString.Lazy as BL
-import Text.Pandoc.Readers.EPUB
-import Text.Pandoc.MediaBag (MediaBag, mediaDirectory)
-import qualified Text.Pandoc.Class as P
-
-getMediaBag :: FilePath -> IO MediaBag
-getMediaBag fp = do
-  bs <- BL.readFile fp
-  snd <$> (P.runIOorExplode $ P.withMediaBag $ readEPUB def bs)
-
-testMediaBag :: FilePath -> [(String, String, Int)] -> IO ()
-testMediaBag fp bag = do
-  actBag <- (mediaDirectory <$> getMediaBag fp)
-  assertBool (show "MediaBag did not match:\nExpected: "
-             ++ show bag
-             ++ "\nActual: "
-             ++ show actBag)
-             (actBag == bag)
-
-featuresBag :: [(String, String, Int)]
-featuresBag = [("img/check.gif","image/gif",1340)
-              ,("img/check.jpg","image/jpeg",2661)
-              ,("img/check.png","image/png",2815)
-              ,("img/multiscripts_and_greek_alphabet.png","image/png",10060)
-              ]
-
-tests :: [Test]
-tests =
-  [ testGroup "EPUB Mediabag"
-    [ testCase "features bag"
-      (testMediaBag "epub/img.epub" featuresBag)
-    ]
-  ]
-- 
cgit v1.2.3