diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-10-04 14:14:41 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-10-04 14:14:41 +0200 |
| commit | 371bc0347b21ff6693f9badeae4962433d42cc55 (patch) | |
| tree | 1f62458183571d0d6566c095dbb57a0635699a37 /tests | |
| parent | c73c09270d7605940c1064aef50675c0cff912c8 (diff) | |
| download | hakyll-371bc0347b21ff6693f9badeae4962433d42cc55.tar.gz | |
Clean up yesterday's work, fix tests
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Main.hs | 1 | ||||
| -rw-r--r-- | tests/Page.hs | 5 |
2 files changed, 4 insertions, 2 deletions
diff --git a/tests/Main.hs b/tests/Main.hs index 2c2717a..adcb613 100644 --- a/tests/Main.hs +++ b/tests/Main.hs @@ -12,6 +12,7 @@ import Template import Util -- | Run all tests. +main :: IO () main = defaultMain [ compressCssGroup , fileGroup , pageGroup diff --git a/tests/Page.hs b/tests/Page.hs index 27163b2..be49ad0 100644 --- a/tests/Page.hs +++ b/tests/Page.hs @@ -13,7 +13,8 @@ import Test.HUnit import System.Directory (getTemporaryDirectory, removeFile) import System.FilePath ((</>)) -import Text.Hakyll.Internal.Page +import Text.Hakyll.Page +import Text.Hakyll.Pandoc import Text.Hakyll.Context import Text.Hakyll.HakyllAction import Text.Hakyll @@ -35,7 +36,7 @@ test_readPage fileName content assertion = do temporaryDir <- getTemporaryDirectory let temporaryFile = temporaryDir </> fileName writeFile temporaryFile content - page <- runDefaultHakyll (readPage temporaryFile) + page <- runDefaultHakyll (runHakyllAction $ createPage temporaryFile) removeFile temporaryFile return $ assertion page |