diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-14 10:08:21 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-14 10:08:21 +0100 |
| commit | 61dcb5f454fcbd912b09839021f4c79ca60973fe (patch) | |
| tree | 37b39b20bc3f5325d2c13939c03ce286162eb354 /tests/Hakyll/Core | |
| parent | 2912fcd521d0d9fbe93dae37783f5f379893ddb1 (diff) | |
| parent | 02a92d54cdee8299aac0f55cbe4a930ac5060d20 (diff) | |
| download | hakyll-61dcb5f454fcbd912b09839021f4c79ca60973fe.tar.gz | |
Merge branch 'master' into dev-metadata-route
Diffstat (limited to 'tests/Hakyll/Core')
| -rw-r--r-- | tests/Hakyll/Core/Provider/Tests.hs | 1 | ||||
| -rw-r--r-- | tests/Hakyll/Core/Rules/Tests.hs | 1 | ||||
| -rw-r--r-- | tests/Hakyll/Core/Store/Tests.hs | 1 |
3 files changed, 3 insertions, 0 deletions
diff --git a/tests/Hakyll/Core/Provider/Tests.hs b/tests/Hakyll/Core/Provider/Tests.hs index 5fd9c0d..abe5c1d 100644 --- a/tests/Hakyll/Core/Provider/Tests.hs +++ b/tests/Hakyll/Core/Provider/Tests.hs @@ -37,3 +37,4 @@ case01 = do doesntExist <- resourceMetadata provider "doesntexist.md" M.empty @=? doesntExist + cleanTestEnv diff --git a/tests/Hakyll/Core/Rules/Tests.hs b/tests/Hakyll/Core/Rules/Tests.hs index 1701cff..908f712 100644 --- a/tests/Hakyll/Core/Rules/Tests.hs +++ b/tests/Hakyll/Core/Rules/Tests.hs @@ -53,6 +53,7 @@ rulesTest = do checkRoute "example.mv1" (sv "mv1" "example.md") checkRoute "example.mv2" (sv "mv2" "example.md") readIORef ioref >>= assert + cleanTestEnv where sv g = setVersion (Just g) expected = diff --git a/tests/Hakyll/Core/Store/Tests.hs b/tests/Hakyll/Core/Store/Tests.hs index 19b268b..95140e3 100644 --- a/tests/Hakyll/Core/Store/Tests.hs +++ b/tests/Hakyll/Core/Store/Tests.hs @@ -67,3 +67,4 @@ wrongType = do e == typeOf (undefined :: Int) && t == typeOf (undefined :: String) _ -> False + cleanTestEnv |