summaryrefslogtreecommitdiff
path: root/tests/Hakyll/Core/DirectedGraph/Tests.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Hakyll/Core/DirectedGraph/Tests.hs')
-rw-r--r--tests/Hakyll/Core/DirectedGraph/Tests.hs12
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"