diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-09 18:11:24 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-09 18:11:24 +0100 |
| commit | 002cf4de32db979d515c2a9cdcd8c8f42859a797 (patch) | |
| tree | 6992a3f05e693116ae6802ef48448a5a03aded1e /tests/Hakyll/Core/DirectedGraph/Tests.hs | |
| parent | 7da7e0b96c245a14122896c24dcee52f038e583a (diff) | |
| download | hakyll-002cf4de32db979d515c2a9cdcd8c8f42859a797.tar.gz | |
Add hamlet templates and restructure tests
Diffstat (limited to 'tests/Hakyll/Core/DirectedGraph/Tests.hs')
| -rw-r--r-- | tests/Hakyll/Core/DirectedGraph/Tests.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/tests/Hakyll/Core/DirectedGraph/Tests.hs b/tests/Hakyll/Core/DirectedGraph/Tests.hs index 1a9b406..3e04b49 100644 --- a/tests/Hakyll/Core/DirectedGraph/Tests.hs +++ b/tests/Hakyll/Core/DirectedGraph/Tests.hs @@ -11,13 +11,10 @@ import Test.HUnit hiding (Test) import Hakyll.Core.DirectedGraph import Hakyll.Core.DirectedGraph.DependencySolver -import Hakyll.Core.DirectedGraph.ObsoleteFilter tests :: [Test] tests = [ testCase "solveDependencies [1]" solveDependencies1 - , testCase "filterObsolete [1]" filterObsolete1 - , testCase "filterObsolete [2]" filterObsolete2 ] node :: Ord a => a -> [a] -> (a, Set a) @@ -37,12 +34,3 @@ solveDependencies1 = result == [3, 4, 2, 6, 8] || result == [3, 4, 2, 6, 8] @? "solveDependencies1" where result = solveDependencies testGraph01 - -filterObsolete1 :: Assertion -filterObsolete1 = nodes (filterObsolete [6] testGraph01) == S.fromList [6, 8] - @? "filterObsolete1" - -filterObsolete2 :: Assertion -filterObsolete2 = - nodes (filterObsolete [4] testGraph01) == S.fromList [4, 2, 6, 8] - @? "filterObsolete2" |