diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-06 18:33:00 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-06 18:33:00 +0100 |
commit | bbc2631c76db01e85ac5c4e75b1babb6c5b05697 (patch) | |
tree | 331dda3a0f45efee866db2a03fb5aa2858e826a8 /tests/Hakyll/Web/Template/Tests.hs | |
parent | e477ea753b59657ba8d185986c646cc45c66fcec (diff) | |
download | hakyll-bbc2631c76db01e85ac5c4e75b1babb6c5b05697.tar.gz |
Add TmpFile utilities
Diffstat (limited to 'tests/Hakyll/Web/Template/Tests.hs')
-rw-r--r-- | tests/Hakyll/Web/Template/Tests.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/Hakyll/Web/Template/Tests.hs b/tests/Hakyll/Web/Template/Tests.hs index 6c5c77a..fce5503 100644 --- a/tests/Hakyll/Web/Template/Tests.hs +++ b/tests/Hakyll/Web/Template/Tests.hs @@ -30,11 +30,13 @@ tests = testGroup "Hakyll.Core.Template.Tests" -------------------------------------------------------------------------------- case01 :: Assertion -case01 = withTestStore $ \store -> do +case01 = do + store <- newTestStore provider <- newTestProvider store out <- resourceString provider "template.html.out" - tpl <- testCompilerDone store provider "template.html" $ templateCompiler + tpl <- testCompilerDone store provider "template.html" $ + templateCompiler item <- testCompilerDone store provider "example.md" $ pandocCompiler >>= applyTemplate (itemBody tpl) testContext |