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 | |
| parent | e477ea753b59657ba8d185986c646cc45c66fcec (diff) | |
| download | hakyll-bbc2631c76db01e85ac5c4e75b1babb6c5b05697.tar.gz | |
Add TmpFile utilities
Diffstat (limited to 'tests/Hakyll/Web')
| -rw-r--r-- | tests/Hakyll/Web/Template/Context/Tests.hs | 5 | ||||
| -rw-r--r-- | tests/Hakyll/Web/Template/Tests.hs | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/tests/Hakyll/Web/Template/Context/Tests.hs b/tests/Hakyll/Web/Template/Context/Tests.hs index f2fb42a..5533c71 100644 --- a/tests/Hakyll/Web/Template/Context/Tests.hs +++ b/tests/Hakyll/Web/Template/Context/Tests.hs @@ -29,7 +29,8 @@ tests = testGroup "Hakyll.Core.Template.Context.Tests" -------------------------------------------------------------------------------- testDateField :: Assertion -testDateField = withTestStore $ \store -> do +testDateField = do + store <- newTestStore provider <- newTestProvider store date1 <- testContextDone store provider "example.md" "date" $ @@ -41,6 +42,8 @@ testDateField = withTestStore $ \store -> do dateField "date" "%B %e, %Y" date2 @=? "August 26, 2010" + cleanTestEnv + -------------------------------------------------------------------------------- testContextDone :: Store -> Provider -> Identifier -> String 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 |