d004dc1 · hakyll · git.iko.soy

git.iko.soy/hakyll

on master help sign in

Test for UnixFilter

d004dc1Jasper Van der Jeugt15 years ago

.ghci+1−1

compare with master

unifiedsplit

@@ -1 +1 @@

1−:set -isrc -isrc-inotify -itests -idist/build/autogen

1+:set -isrc -isrc-interval -itests -idist/build/autogen

src/Hakyll/Core/Resource/Provider/Dummy.hs+5−3

@@ -7,15 +7,17 @@ module Hakyll.Core.Resource.Provider.Dummy

7import Data.Map (Map)

8import qualified Data.Map as M

10−import qualified Data.ByteString.Lazy.Char8 as LBC

10+import qualified Data.Text.Lazy as TL

11+import qualified Data.Text.Lazy.Encoding as TL

12+import Data.ByteString.Lazy (ByteString)

12import Hakyll.Core.Resource

14import Hakyll.Core.Resource

13import Hakyll.Core.Resource.Provider

15import Hakyll.Core.Resource.Provider

15-- | Create a dummy 'ResourceProvider'

17-- | Create a dummy 'ResourceProvider'

16--

18--

17−dummyResourceProvider :: Map String String -> IO ResourceProvider

19+dummyResourceProvider :: Map String ByteString -> IO ResourceProvider

18dummyResourceProvider vfs = makeResourceProvider

20dummyResourceProvider vfs = makeResourceProvider

19 (map Resource (M.keys vfs))

21 (map Resource (M.keys vfs))

22+ (return . TL.unpack . TL.decodeUtf8 . (vfs M.!) . unResource)

20 (return . (vfs M.!) . unResource)

23 (return . (vfs M.!) . unResource)

21− (return . LBC.pack . (vfs M.!) . unResource)

tests/Hakyll/Core/Store/Tests.hs+5−4

@@ -15,6 +15,7 @@ import qualified Test.HUnit as H

16import Hakyll.Core.Identifier

17import Hakyll.Core.Store

18+import TestSuite.Util

19tests :: [Test]

20tests :: [Test]

20tests =

21tests =

@@ -28,7 +29,7 @@ simpleSetGet = monadicIO $ do

28 identifier <- parseIdentifier . unFileName <$> pick arbitrary

29 identifier <- parseIdentifier . unFileName <$> pick arbitrary

29 FileName name <- pick arbitrary

30 FileName name <- pick arbitrary

30 value <- pick arbitrary

31 value <- pick arbitrary

31− store <- run $ makeStore "_store"

32+ store <- run $ makeStoreTest

32 run $ storeSet store name identifier (value :: String)

33 run $ storeSet store name identifier (value :: String)

33 value' <- run $ storeGet store name identifier

34 value' <- run $ storeGet store name identifier

34 assert $ Found value == value'

35 assert $ Found value == value'

@@ -38,16 +39,16 @@ persistentSetGet = monadicIO $ do

38 identifier <- parseIdentifier . unFileName <$> pick arbitrary

39 identifier <- parseIdentifier . unFileName <$> pick arbitrary

39 FileName name <- pick arbitrary

40 FileName name <- pick arbitrary

40 value <- pick arbitrary

41 value <- pick arbitrary

41− store1 <- run $ makeStore "_store"

42+ store1 <- run $ makeStoreTest

42 run $ storeSet store1 name identifier (value :: String)

43 run $ storeSet store1 name identifier (value :: String)

43 -- Now Create another store from the same dir to test persistence

44 -- Now Create another store from the same dir to test persistence

44− store2 <- run $ makeStore "_store"

45+ store2 <- run $ makeStoreTest

45 value' <- run $ storeGet store2 name identifier

46 value' <- run $ storeGet store2 name identifier

46 assert $ Found value == value'

47 assert $ Found value == value'

48wrongType :: H.Assertion

49wrongType :: H.Assertion

49wrongType = do

50wrongType = do

50− store <- makeStore "_store"

51+ store <- makeStoreTest

51 -- Store a string and try to fetch an int

52 -- Store a string and try to fetch an int

52 storeSet store "foo" "bar" ("qux" :: String)

53 storeSet store "foo" "bar" ("qux" :: String)

53 value <- storeGet store "foo" "bar" :: IO (StoreGet Int)

54 value <- storeGet store "foo" "bar" :: IO (StoreGet Int)

tests/Hakyll/Core/UnixFilter/Tests.hsnew file+50

@@ -0,0 +1,50 @@

1+{-# LANGUAGE OverloadedStrings #-}

2+module Hakyll.Core.UnixFilter.Tests

3+ where

5+import Control.Arrow ((>>>))

6+import qualified Data.Map as M

8+import Test.Framework (Test)

9+import Test.Framework.Providers.HUnit (testCase)

10+import qualified Test.HUnit as H

11+import qualified Data.Text.Lazy as TL

12+import qualified Data.Text.Lazy.Encoding as TL

13+

14+import Hakyll.Core.Compiler

15+import Hakyll.Core.Resource.Provider.Dummy

16+import Hakyll.Core.UnixFilter

17+import TestSuite.Util

18+

19+tests :: [Test]

20+tests =

21+ [ testCase "unixFilter rev" unixFilterRev

22+ ]

23+

24+unixFilterRev :: H.Assertion

25+unixFilterRev = do

26+ provider <- dummyResourceProvider $ M.singleton "foo" $

27+ TL.encodeUtf8 $ TL.pack text

28+ output <- runCompilerJobTest compiler "foo" provider ["foo"]

29+ H.assert $ rev text == lines output

30+ where

31+ compiler = getResource >>> getResourceString >>> unixFilter "rev" []

32+ rev = map reverse . lines

33+

34+text :: String

35+text = unlines

36+ [ "Статья 18"

37+ , ""

38+ , "Каждый человек имеет право на свободу мысли, совести и религии; это"

39+ , "право включает свободу менять свою религию или убеждения и свободу"

40+ , "исповедовать свою религию или убеждения как единолично, так и сообща с"

41+ , "другими, публичным или частным порядком в учении, богослужении и"

42+ , "выполнении религиозных и ритуальных обрядов."

43+ , ""

44+ , "Статья 19"

45+ , ""

46+ , "Каждый человек имеет право на свободу убеждений и на свободное выражение"

47+ , "их; это право включает свободу беспрепятственно придерживаться своих"

48+ , "убеждений и свободу искать, получать и распространять информацию и идеи"

49+ , "любыми средствами и независимо от государственных границ."

50+ ]

tests/TestSuite.hs+3

@@ -7,6 +7,7 @@ import qualified Hakyll.Core.Identifier.Tests

7import qualified Hakyll.Core.Routes.Tests

8import qualified Hakyll.Core.Rules.Tests

9import qualified Hakyll.Core.Store.Tests

10+import qualified Hakyll.Core.UnixFilter.Tests

10import qualified Hakyll.Web.Page.Tests

11import qualified Hakyll.Web.Page.Tests

11import qualified Hakyll.Web.Page.Metadata.Tests

12import qualified Hakyll.Web.Page.Metadata.Tests

12import qualified Hakyll.Web.RelativizeUrls.Tests

13import qualified Hakyll.Web.RelativizeUrls.Tests

@@ -25,6 +26,8 @@ main = defaultMain

25 Hakyll.Core.Rules.Tests.tests

26 Hakyll.Core.Rules.Tests.tests

26 , testGroup "Hakyll.Core.Store.Tests"

27 , testGroup "Hakyll.Core.Store.Tests"

27 Hakyll.Core.Store.Tests.tests

28 Hakyll.Core.Store.Tests.tests

29+ , testGroup "Hakyll.Core.UnixFilter.Tests"

30+ Hakyll.Core.UnixFilter.Tests.tests

28 , testGroup "Hakyll.Web.Page.Tests"

31 , testGroup "Hakyll.Web.Page.Tests"

29 Hakyll.Web.Page.Tests.tests

32 Hakyll.Web.Page.Tests.tests

30 , testGroup "Hakyll.Web.Page.Metadata.Tests"

33 , testGroup "Hakyll.Web.Page.Metadata.Tests"

tests/TestSuite/Util.hs+28

@@ -2,15 +2,43 @@

2--

3module TestSuite.Util

4 ( fromAssertions

5+ , makeStoreTest

6+ , runCompilerJobTest

5 ) where

7 ) where

9+import Data.Monoid (mempty)

10+

7import Test.Framework

11import Test.Framework

8import Test.Framework.Providers.HUnit

12import Test.Framework.Providers.HUnit

9import Test.HUnit hiding (Test)

13import Test.HUnit hiding (Test)

15+import Hakyll.Core.Compiler.Internal

16+import Hakyll.Core.Identifier

17+import Hakyll.Core.Logger

18+import Hakyll.Core.Resource.Provider

19+import Hakyll.Core.Store

20+

11fromAssertions :: String -- ^ Name

21fromAssertions :: String -- ^ Name

12 -> [Assertion] -- ^ Cases

22 -> [Assertion] -- ^ Cases

13 -> [Test] -- ^ Result tests

23 -> [Test] -- ^ Result tests

14fromAssertions name = zipWith testCase names

24fromAssertions name = zipWith testCase names

15 where

25 where

16 names = map (\n -> name ++ " [" ++ show n ++ "]") [1 :: Int ..]

26 names = map (\n -> name ++ " [" ++ show n ++ "]") [1 :: Int ..]

27+

28+-- | Create a store for testing

29+--

30+makeStoreTest :: IO Store

31+makeStoreTest = makeStore "_store"

32+

33+-- | Testing for 'runCompilerJob'

34+--

35+runCompilerJobTest :: Compiler () a

36+ -> Identifier

37+ -> ResourceProvider

38+ -> [Identifier]

39+ -> IO a

40+runCompilerJobTest compiler id' provider uni = do

41+ store <- makeStoreTest

42+ logger <- makeLogger $ const $ return ()

43+ Right x <- runCompilerJob compiler id' provider uni mempty store True logger

44+ return x