summaryrefslogtreecommitdiff
path: root/tests/Hakyll/Core/DirectedGraph
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Hakyll/Core/DirectedGraph')
-rw-r--r--tests/Hakyll/Core/DirectedGraph/Tests.hs36
1 files changed, 0 insertions, 36 deletions
diff --git a/tests/Hakyll/Core/DirectedGraph/Tests.hs b/tests/Hakyll/Core/DirectedGraph/Tests.hs
deleted file mode 100644
index 3e04b49..0000000
--- a/tests/Hakyll/Core/DirectedGraph/Tests.hs
+++ /dev/null
@@ -1,36 +0,0 @@
-module Hakyll.Core.DirectedGraph.Tests
- ( tests
- ) where
-
-import Data.Set (Set)
-import qualified Data.Set as S
-
-import Test.Framework
-import Test.Framework.Providers.HUnit
-import Test.HUnit hiding (Test)
-
-import Hakyll.Core.DirectedGraph
-import Hakyll.Core.DirectedGraph.DependencySolver
-
-tests :: [Test]
-tests =
- [ testCase "solveDependencies [1]" solveDependencies1
- ]
-
-node :: Ord a => a -> [a] -> (a, Set a)
-node t n = (t, S.fromList n)
-
-testGraph01 :: DirectedGraph Int
-testGraph01 = fromList
- [ node 8 [2, 4, 6]
- , node 2 [4, 3]
- , node 4 [3]
- , node 6 [4]
- , node 3 []
- ]
-
-solveDependencies1 :: Assertion
-solveDependencies1 = result == [3, 4, 2, 6, 8] || result == [3, 4, 2, 6, 8]
- @? "solveDependencies1"
- where
- result = solveDependencies testGraph01