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/Core/UnixFilter/Tests.hs | |
| parent | e477ea753b59657ba8d185986c646cc45c66fcec (diff) | |
| download | hakyll-bbc2631c76db01e85ac5c4e75b1babb6c5b05697.tar.gz | |
Add TmpFile utilities
Diffstat (limited to 'tests/Hakyll/Core/UnixFilter/Tests.hs')
| -rw-r--r-- | tests/Hakyll/Core/UnixFilter/Tests.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/Hakyll/Core/UnixFilter/Tests.hs b/tests/Hakyll/Core/UnixFilter/Tests.hs index c3e1c99..350c857 100644 --- a/tests/Hakyll/Core/UnixFilter/Tests.hs +++ b/tests/Hakyll/Core/UnixFilter/Tests.hs @@ -27,11 +27,13 @@ tests = testGroup "Hakyll.Core.UnixFilter.Tests" -------------------------------------------------------------------------------- unixFilterRev :: H.Assertion -unixFilterRev = withTestStore $ \store -> do +unixFilterRev = do + store <- newTestStore provider <- newTestProvider store output <- testCompilerDone store provider "russian.md" compiler expected <- testCompilerDone store provider "russian.md" getResourceString H.assert $ rev (itemBody expected) == lines (itemBody output) + cleanTestEnv where compiler = getResourceString >>= withItemBody (unixFilter "rev" []) rev = map reverse . lines |